假设我有一个具有以下API的C函数:
int c_function(int **a);
假设C函数负责内存分配,我应该如何声明一个Fortran数组/数组指针,并将其传递给函数?
您必须声明的Fortan c指针 type(c_ptr)
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句