Fortran调用C动态链接库

首先先说明一下题目把，为什么Fortran调用的是C动态库而不是C++？

C语言函数库的调用和C++函数库的调用是不一样的，其不同主要是由于C++相较于C的特性造成的。

举个栗子，C语言中一个函数名只能代表一个函数，C++中由于函数重载的存在一个函数名并不能唯一确定一个函数。

因此在调用函数库时也就注定着C和C++必定有所区别。

而Fortran是基于C标准的，所以只能调用C的动态库。（如果必须用C++编译器编译的话，可以加入extern "C"，确保特定函数使用C规则编译）

编译C动态链接库

首先在VS中新建动态链接库项目，添加.c文件（如果是cpp编译出来就不是C动态库了）

#include <stdio.h>
_declspec(dllexport) void _cdecl MYPRINT(double *x)
{
    printf("%lf",*x);
}

这里需要注意的一点就是堆栈管理规则

_stdcall:参数由右向左压入堆栈，堆栈由函数自己清理。

_cdecl:参数由右向左压入堆栈,堆栈由调用方清理。

msvc都是默认_stdcall的堆栈管理规则，Fortran是_cdecl，因此在输出函数库时应显式设置它。

---

对于编译生成的.lib和.dll的作用这里做一下简单的介绍：

.lib是用来编译使用的，用来说明库里有什么东西去哪里找

.dll就是你要找的那个东西

在编译过程中，只需要知道去哪里找就够了，等到程序运行的时候才需要dll出来干活

因此，如果不想额外添加路径的话，只需要将.lib复制到项目根目录，.dll复制到可执行文件的同级目录之下就可以了。

---

Fortran调用C动态链接库

在项目->属性->链接器->输入->附加依赖项 中加入需要调用的lib文件

program callcfunction
implicit none
interface 
    function MYPRINT(x) bind(c,name='MYPRINT')
        use,intrinsic::iso_c_binding
        real(8)::x
    end function
end interface
    real(8)::x
    real(4)::result
    x=3.1415
    result = MYPRINT(x)
end program

注意：调用方的程序位数与版本需要与库保持一致