请教关于Fortran调C后返回值的问题

dongtian99

请教一个关于Fortran调用C后返回值的问题。主程序是Fortran，求解时是调用的C接口函数（lib），现在已经利用C求解器把结果计算出来了，但是却没能把C接口计算的结果返回到Fortran中。程序有点大，没法粘贴上。举个小例子说明一下自己的问题，如下面这个C语言sum函数，a,n是两个参数，s是返回值。利用main函数调用sum函数时，y1=sum(x,5)，此时y1就是计算结果，这里的y1相当于sum函数中的s。

[C] syntaxhighlighter_viewsource syntaxhighlighter_copycode

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[5]={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 ), 好像又不合理。请问大家，能帮忙解答一下吗？

pasuka

C里面数组等价于指针，int a[] 等价于 int *a
具体请参考gfortran的相关说明
https://gcc.gnu.org/onlinedocs/g ... tines-and-Functions

fcode

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

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) = [1,2,3,4,5]
  write(*,*) "Sum=" , sum( c_loc(x) , size(x) )
end program main

[C] syntaxhighlighter_viewsource syntaxhighlighter_copycode

int sum(int a[], int n)
{
int i,s=0;
for(i=0;i<n;i++)
s+=a[i];
return s;
}

dongtian99

fcode 发表于 2017-2-27 18:35
[mw_shl_code=fortran,true]module interfaces
interface
integer function sum(a,n) Bind( C , Name = "su ...

谢谢您啦，我尝试一下