Fortran生成及调用动态链接库dll

最新推荐文章于 2025-11-07 22:18:50 发布

原创最新推荐文章于 2025-11-07 22:18:50 发布 · 5.2k 阅读

18 ·

CC 4.0 BY-SA版权

文章标签：

#经验分享

本文介绍了如何使用VisualStudio2019和oneAPI2023来创建Fortran动态链接库（DLL），并展示了两种方法来调用生成的DLL：直接添加.lib文件到项目或在代码中指定库。示例代码包括两个子例行程序aa1和aa2，并强调了不正确引用.lib文件时可能出现的错误。

纯小白操作

vs2019+oneAPI2023

创建动态链接库dll

调用动态链接库dl

创建动态链接库dll

在VS中选择创建新项目，选择Dynamic-link Library with Sample Code
生成后在Source Files中的.f90文件中进行代码的编写
代码编写完成后，在“生成”中选择“生成解决方案”生成.lib和.dll文件

!!!生成的.lib和.dll文件在项目中的Debug文件夹下

创建的动态链接库中的代码：

subroutine aa1(a)
!DEC$ ATTRIBUTES DLLEXPORT::aa1
integer*4 :: a
a=a+4
write(*,*)"a+4",a
end subroutine aa1

subroutine aa2
!DEC$ ATTRIBUTES DLLEXPORT::aa2
write(*,*)"hello!"
end subroutine aa2

调用动态链接库dll

将.lib和.dll文件和需要调用该动态链接库的项目放置在同一文件夹目录下
有两种方式调用。（1）将.lib文件直接添加到该项目的Source Files中，然后正常编译程序；（2）在程序中添加!DEC$OBJCOMMENT LIB:'name.lib'，无需将.lib文件添加到该项目的Source Files中，然后正常编译

如果不进行第2步，只是将.lib和.dll与现有项目放在一个目录下然后执行会报错

第二种方法的代码示意：

program main
    !DEC$OBJCOMMENT LIB:'testdll.lib'
    implicit none
    interface
    subroutine aa1(a)
    !DEC$ ATTRIBUTES DLLEXPORT::aa1
    integer*4 :: a
    end subroutine aa1
    
    subroutine aa2
    !DEC$ ATTRIBUTES DLLEXPORT::aa2
    end subroutine aa2
    end interface
    
    integer*4 :: b
    call aa2
    b=4
    call aa1(b)
    end