VC++调用Fortran生成的DLL实例

　　VC++和Fortran混合编程借助于Fortran生成的DLL进行

　　（采用C默认的传址方式进行函数参数传递）

　　1.Fortran 生成DLL

　　新建Fortran DLL程序test1.f

　　添加如下代码：

　　! test1.f90

　　!

　　! FUNCTIONS/SUBROUTINES exported from test1.dll:

　　! test1 - subroutine

　　!示例没有返回值的子例程

　　subroutine test1(a,b)

　　! Expose subroutine test1 to users of this DLL

　　!

　　!DEC$ ATTRIBUTES C,DLLEXPORT::test1

　　! Variables

　　! Body of test1

　　integer a,b

　　integer sum

　　sum=a+b

　　return

　　end subroutine test1

　　!示例有返回值的整数四则运算

　　!两数相加

　　function add(a,b)

　　implicit none

　　!DEC$ ATTRIBUTES C,DLLEXPORT::add

　　integer a,b,add

　　add=a+b

　　return

　　end

　　!两数相减

　　function abstract(a,b)

　　implicit none

　　!DEC$ ATTRIBUTES C,DLLEXPORT::abstract

　　integer a,b,abstract

　　abstract=a-b

　　return

　　end

　　!两数相乘

　　function multiply(a,b)

　　implicit none

　　!DEC$ ATTRIBUTES C,DLLEXPORT::multiply

　　integer a,b,multiply

　　multiply=a*b

　　return

　　end

　　!两数相除 （需要添加考虑被除数是否为0以及能否整除的判断）

　　function divided(a,b)

　　implicit none

　　!DEC$ ATTRIBUTES C,DLLEXPORT::divided

　　integer a,b,divided

　　divided=a/b

　　return

　　end

　　编译后生成test1.dll,test1.obj等文件。其中这两个文件是我们在VC中调用所需要的。

　　查看test1.dll中生成的函数如下图所示。

　　注意：使用伪注释语句!DEC$ ATTRIBUTES C,DLLEXPORT::functionName后，生成的函数名与Fortran中定义的函数名一致，并没有按照Fortran编译器的默认属性将函数名都转变为大些，如下图所示。在后续的VC中调用的时候需要保持调用的函数名称一致，否则会出现找不到函数的错误提示。