IVF环境下Fortran使用C++编译的静态库

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、输出结果