Fortran和C++混编练习

提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档

---

  Fortran语言有自身的不足，有的过程的实现需要借助到其他语言，最常见的就是调用C++的过程。通过测试将C++调用Fortran和**Fortran调用C++**这两个过程进行了实现，将过程进行记录。

一、C++调用Fortran

(1)创建Fortran的动态链接工程，设置生成路径：存储生成的dll和lib文件；

(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进行调用。