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中调用的时候需要保持调用的函数名称一致,否则会出现找不到函数的错误提示。
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。