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中调用的时候需要保持调用的函数名称一致，否则会出现找不到函数的错误提示。

　　2.VC控制台调用Fortra生成的DLL

　　新建VC控制台应用程序，新建一个checktest1的工程。

　 　注意：需要在工程的project菜单下的add to project子菜单的file对话框中添加上一步生成的test1.dll，test1.obj两个文件，否则编译能通过，链接的时候失败。还需将以上 两个文件拷贝到checktest1工程的debug目录下，否则运行的时候出现找不到文件的错误提示。自己测试了一下，以上两步是必须的。

　　添加如下代码：（注意红色的部分）

　　#include “stdafx.h”

　　#include “iostream.h”

　　//extern “C”{_stdcall TEST1(int* x，int* y)；}

　　//extern “C”{_stdcall ADD(int* x，int* y)；}

　　//extern “C”{_stdcall ABSTRACT(int* x，int* y)；}

　　//extern “C”{_stdcall MULTIPLY(int* x，int* y)；}

　　//extern “C”{_stdcall DIVIDED(int* x，int* y)；}

　　//注意此处函数名称要与DLL生成时保持一致（如下中的蓝色部分），否则会出现找不到函数的错误提示。并且一定要记得去掉参数中的指针符号*。

　　extern “C”{_cdecl test1(int x，int y)；}

　　extern “C”{_cdecl add(int x，int y)；}