相关疑难解决方法(0)

我正在编写将使用Fortran的C互操作性机制从Fortran调用C函数的代码(在Fortran 2003中引入并在较新版本的gfortran和ifort中实现).

这个答案几乎就是我所需要的,但是我不能完全理解我应该在Fortran中使用哪个接口声明来获得一个看起来像这样的C函数:

int use_array(int n, char * array[]){
    int i;
    for(i=0; i<n; i++){
        printf("Item %d = %s\n",i,array[i]);
    }
    return n;
}

我不清楚Fortran端的接口应该是什么声明:

interface
    function use_array(n, x) bind(C)
        use iso_c_binding
        integer (c_int) use_array
        integer (c_int), value :: n
        character(c_char) WHAT_SHOULD_GO_HERE? :: x
    end function use_array
end interface

我知道我也必须处理空终止问题.

我试图将字符串数组从C传递到Fortran子例程，以及从Fortran传递到相同的Fortran子例程。我已经成功地从C和Fortran中成功传递了单个字符串（即1D字符数组）。但是，我在处理字符串数组时遇到了麻烦。我在Fortran端使用ISO C绑定，理想情况下，我希望在调用端尽可能做到无缝。

我已经阅读了一些相关的问题和答案。有些（即this和this）只是“使用ISO C”而没有更多细节，这并没有太大帮助。这个答案非常有帮助（对不同问题的类似答案），但是仅适用于单个字符串，其中似乎在单个Fortran字符串中识别了c_null_char。如果没有两个单独的例程，我无法弄清楚数组情况该怎么办。

我现在有一个C例程，我想从其中传递字符串数组（string）：

#include <iostream>

extern "C" void print_hi_array(char input_string[][255]);

using namespace std;

int main() {

  char string[3][255] = {"asdf","ghji","zxcv"};   
  print_hi_array(string);

  return 0;
}

并且，一个类似的Fortran例程：

program main
  implicit none
  call print_hi_array( (/"asdf", "ghji", "zxcv"/) )
end program

到目前为止，这是我对接收端的要求：

subroutine print_hi_array(input_string) bind(C)
  use iso_c_binding, only: C_CHAR, c_null_char

  implicit none

  character (kind=c_char, len=1), dimension (3,255), intent (in) :: input_string
  character (len=255), dimension (3) :: regular_string
  character (len=255) :: dummy_string
  integer …