1、VS中新建C++项目 编译得到相应lib文件
extern "C" int CADD(int , int ,int );
int CADD(int a, int b,int c)
{
return a+b+c;
}
2、在fortran项目中添加lib文件
注意:如有多有lib用空格隔开(C++项目中用分号)
3、使用LIB文件
program libtest
implicit none
interface
integer function add(a,b,c)
integer a,b,c
!ms$attributes c,alias:'CADD':: add
end function add
end interface
INTEGER :: A=2
INTEGER :: B=3
INTEGER :: C=0
integer ::sum=2
print *,"A= ",A
print *,"B= ",B
print *,"C= ",C
print *,"SUM_before",sum
sum=ADD(A,B,C)
print *,"SUM_after",sum
pause
stop
end
4、输出结果