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目录下，否则运行的时候出现找不到文件的错误提示。自己测试了一下，以上两步是必须的。
添加如下代码：（注意红色的部分）
#includestdafx.h
#includeiostream.h
//externC {_stdcall TEST1(int* x，int* y)；}
//externC {_stdcall ADD(int* x，int* y)；}
//externC {_stdcall ABSTRACT(int* x，int* y)；}
//externC {_stdcall MULTIPLY(int* x，int* y)；}
//externC {_stdcall DIVIDED(int* x，int* y)；}
//注意此处函数名称要与DLL生成时保持 一致（如下中的蓝色部分），否则会出现找不到函数的错误提示。并且一定要记得去掉参数中的指针符号*。
externC {_cdecl test1(int x，int y)；}
externC {_cdecl add(int x，int y)；}
//采用C的传值方式，则需要将 _stdcall修改为_cdecl
//相应的Fortran DLL处要添加C的调用方式，即将！DEC$ ATTRIBUTES DLLEXPORT：：add修改为：！DEC$ ATTRIBUTES C，DLLEXPORT：：add
//适应伪注释！DEC$ ATTRIBUTES C，DLLEXPORT：：add后生成的DLL函数中只存在函数名为add的函数，ADD 和_ADD@8 均不存在，参见上图中的DLL函数名称
externC {_cdecl abstract(int x，int y)；}
externC {_cdecl multiply(int x，int y)；}
externC {_cdecl divided(int x，int y)；}
int main(int argc， char* argv[])
{
int a=35，b=5；
int sum=0；
int abs=0；
int mul=0；
int div=0；
//TEST1(&a，&b)；
//sum=ADD(&a，& amp;b)；
//abs=ABSTRACT(& a，&b)；
//mul=MULTIPLY(& a，&b)；
//div=DIVIDED(& a，&b)；
test1(a，b)；
sum=add(a，b)；
abs=abstract(a，b)；
mul=multiply(a，b)；
div=divided(a，b)；
printf( a+b= %dn ，sum)；
printf( a-b= %dn ，abs)；
printf( a*b= %dn ，mul)；
printf( a/b= %dn ，div)；
printf( Hello World！n )；
return 0；
}
然后编译运行可以得出正确的结果：
