提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档
Fortran和C++相互调用练习
Fortran语言有自身的不足,有的过程的实现需要借助到其他语言,最常见的就是调用C++的过程。通过测试将C++调用Fortran和**Fortran调用C++**这两个过程进行了实现,将过程进行记录。
一、C++调用Fortran
(1)创建Fortran的动态链接工程,设置生成路径:存储生成的dll和lib文件;
![](https://i-blog.csdnimg.cn/blog_migrate/9de898088d956131c22b524e1d3cc749.png)
(2)编写fortran module: 一个简单的计算function
module F_module
use, intrinsic :: ISO_C_BINDING
implicit none
contains
function F_Cubic(a,b)result(c)
!DEC$ ATTRIBUTES DLLEXPORT::F_Cubic
!DEC$ ATTRIBUTES STDCALL,ALIAS:'F_Cubic'::F_Cubic
implicit none
real(8),intent(in) :: a,b
real(8) :: c
c = a**3.d0 + b**3.d0
end function
end module
(3)编译生成
(4)创建C++ 控制台程序,设置附加库目录,让接口能够识别到fortran生成的lib的位置;
(5)c++的.h和.cpp文件内容
// .h 文件
#pragma once
#pragma comment(lib,"F_dll.lib")
extern "C" __declspec(dllimport) double _cdecl F_Cubic(double a, double b);
// .cpp文件
#include "ImportF.h"
#include <iostream>
int main()
{
double a = 3.0;
double b = 4.0;
double c;
c = F_Cubic(a, b);
printf("%f %f %f \n", a, b, c);
printf("%s", "c++调用Fortran成功");
}
(6)运行结果
C++调用Fortran的过程如上,感觉其中比较关键的是接口的导出 和 方法的导入,下一步将尝试复杂过程的混编。
二、Fortran调用C++
(1) 新建C++动态链接库项目,设置输出路径,存储一会编译出的dll和lib文件;
(2) 还是写一个简单的求三次方的方法封装到dll中
(3) 编译生成dll,编译结果
(4) 创建Fortran的Main Program Code工程,修改输出路径 == C++中设置的输出目录;
(5) 配置属性 -->Linker(连接器) --> Input --> Additional Dependencies(添加依赖)中将c_dll.lib 的完整路径配置上;
(6) 编写Fortran调用C++的程序
program F_D_C
implicit none
real(8) :: Fa,Fb,Fc
interface ! 引入C++函数
function C_cubic(a,b)result(c)bind(c,name="C_cubic")
use,intrinsic::iso_c_binding
implicit none
real(c_double),value,intent(in) :: a,b
real(c_double) :: c
end function
end interface
Fa = 3.d0
Fb = 4.d0
Fc = C_cubic(Fa, Fb)
print *,"Fortran调用C++结果",Fc
end program
运行结果
总结
记录混编过程方便后续Fortran对其他的API进行调用。