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

最新推荐文章于 2024-08-20 14:33:23 发布

大傻兔奶糖

最新推荐文章于 2024-08-20 14:33:23 发布

阅读量3.1k

点赞数 1

文章标签：经验分享

本文链接：https://blog.csdn.net/npc_2401/article/details/131543189

版权

纯小白操作

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