请教关于Fortran调C后返回值的问题
请教一个关于Fortran调用C后返回值的问题。主程序是Fortran，求解时是调用的C接口函数（lib），现在已经利用C求解器把结果计算出来了，但是却没能把C接口计算的结果返回到Fortran中。程序有点大，没法粘贴上。举个小例子说明一下自己的问题，如下面这个C语言sum函数，a,n是两个参数，s是返回值。利用main函数调用sum函数时，y1=sum(x,5)，此时y1就是计算结果，这里的y1相当于sum函数中的s。int sum(int a[], int n)
{
int i,s=0;
for(i=0;i<n;i++)
s+=a;
return s；
}
int main(void)
{
int sum(int a[], int n);
int x={1,2,3,4,5},y1,y2;
y1=sum(x,5);
return 0;
}
通过这样类比，目前，我在Fortran中写的call sum(a, n), 把结果输出到txt是正确的（求解是C完成的，输出语句也是在C中完成的），Fortran中不能写成y1=sum(x,5)，所以不知道怎么把C计算的结果返回到Fortran中。而现在我是想在Fortran中想写这样一个语句call sum（a， n，s），a,n是两个参数，s是返回值。而在Fortran与C混合编程过程中要保持共用函数一致，那么C的接口函数也是这种形式的话，就变成 int sum(int a[], int n, int s ), 好像又不合理。请问大家，能帮忙解答一下吗？ C里面数组等价于指针，int a[] 等价于 int *a
具体请参考gfortran的相关说明
https://gcc.gnu.org/onlinedocs/gcc-6.3.0/gfortran/Interoperable-Subroutines-and-Functions.html#Interoperable-Subroutines-and-Functions
module interfaces
interface
integer function sum(a,n) Bind( C , Name = "sum" )
use ,Intrinsic::ISO_C_Binding
type(C_PTR) , value :: a
integer , value :: n
end function sum
end interface
end module interfaces
program main
use interfaces
use , intrinsic :: ISO_C_Binding
implicit none
integer , target :: x(5) =
write(*,*) "Sum=" , sum( c_loc(x) , size(x) )
end program main
int sum(int a[], int n)
{
int i,s=0;
for(i=0;i<n;i++)
s+=a;
return s;
}
fcode 发表于 2017-2-27 18:35
module interfaces
interface
integer function sum(a,n) Bind( C , Name = "su ...
谢谢您啦，我尝试一下
页:
[1]