zoukankan      html  css  js  c++  java
  • fortran语言调用fortran写的dll

    环境:vs2013+IVF 2011

    有时候想把fortran写的常用的函数编译为DLL,以供不同的fortran exe调用,这时候应该怎样做呢?【参考 彭国伦老师 fortran95 程序设计 书349和353页】

    下面以写一个计算圆面积的dll来示例:

    首先新建一个解决方案(solution),然后添加一个工程(project),一个解决方案下可以有多个工程,每个工程可以认为是一个大的功能区,每个都可以是一个完善的可执行软件exe。

     新建一个  fortran dynamic library类型的工程 sub:

     1 subroutine SUB(S,R)
     2 !程序作用是根据传入的圆的半径R,计算圆的面积S 
     3 !DEC$ ATTRIBUTES DLLEXPORT :: SUB
     4 !上面的语句是编译功能语句,DLL中可以被外界调用的函数都要写上面的语句,声明哪些函数可以被外界访问,不然外界无法访问。     
     5 implicit none
     6 double precision S,R
     7 write(*,*)"You are use subroutline in DLL"
     8 S=3.141592653*R**2!计算的面积可以通过传址传出去
     9 return
    10 end
    11       

    此时可以 点击 生成---生成解决方案,会生成sub.lib 和 sub.dll

    然后可以在同一个解决方案下新建另外一个 可执行文件类型的 工程 mainCallDll:

     1 program callDll_SUB
     2 implicit none
     3 double precision area,r
     4 r=2.0
     5 call sub(area,r)
     6 write(*,*)"r=",r,"area=",area
     7 pause
     8 stop
     9 end
    10       

    最后在mainCallDll工程上右键,设为启动项,然后再右键本工程,添加,选择sub工程中的sub.lib,此时可以点 击 生成---生成解决方案。

    但此时是不可以运行的,要把sub.dll复制到与 mainCallDll.exe同目录下才行。

    代码组织结构:

    ------


    接下来调试dll:【参考:https://blog.csdn.net/caoshangpa/article/details/78733379   https://blog.csdn.net/qianghaohao/article/details/50190905

    0. 将exe拷贝到dll生成目录下,并设置dll工程为启动项目。然后:

     1.

     2.

     3.

     4.

  • 相关阅读:
    LFYZ-OJ ID: 1008 求A/B高精度值
    高精度运算
    【2018国庆雅礼集训】部分题解
    【模板】倍增求LCA
    Luogu1516 青蛙的约会
    loj #10043. 「一本通 2.2 例 1」剪花布条
    我太菜了
    Luogu1280 尼克的任务
    Luogu1091 合唱队形
    Luogu1006 传纸条
  • 原文地址:https://www.cnblogs.com/zhubinglong/p/10507698.html
Copyright © 2011-2022 走看看