从 Fortran 调用带有 **int 参数的 C 函数

Question

假设我有一个具有以下 API 的 C 函数：

int c_function(int **a);

假设 C 函数负责内存分配，我应该如何将 Fortran array/pointer 声明为数组，并将其传递给函数？

Answer 1

您必须声明 type(c_ptr)

的 Fortan c 指针

type(c_ptr) :: ptr

然后调用您的函数（使用适当的接口）

n = c_function(ptr)

然后才将 Fortran 数组指针指向那里

real, pointer :: Array(:)

call c_f_pointer(ptr, Array, [n])

我假设 n 是数组的大小。你必须知道，否则不可能。

界面可能看起来像

interface

    integer(c_int) function c_function(ptr) bind(C,name="c_function")
      use iso_c_binding
      type(c_ptr) :: ptr
    end function

end interface

从 Fortran 调用带有 **int 参数的 C 函数

Calling C function with **int parameter from Fortran

c

fortran

fortran-iso-c-binding