如何将字符串数组从fortran传递到c？

subroutine fortran_to_c(strings, num_strings, string_length)
  implicit none
  character(len=*), intent(in) :: strings(:)
  integer, intent(in) :: num_strings, string_length
  integer :: i

  do i = 1, num_strings
    call c_function(strings(i), string_length)
  end do
end subroutine

#include <stdio.h>
#include <string.h>

extern void fortran_to_c_(char* strings, int* num_strings, int* string_length);

void c_function(char* string, int string_length) {
  char c_string[string_length + 1];
  strncpy(c_string, string, string_length);
  c_string[string_length] = '\0';
  
  printf("Received string from Fortran: %s\n", c_string);
}

int main() {
  char strings[3][10] = {"Hello", "World", "Fortran"};
  int num_strings = 3;
  int string_length = 10;

  fortran_to_c_(strings, &num_strings, &string_length);

  return 0;
}