Fortran Coder

查看: 8480|回复: 6
打印 上一主题 下一主题

求助一个有关Fortran动态链接库的问题

[复制链接]

4

帖子

1

主题

0

精华

入门

F 币
42 元
贡献
20 点
跳转到指定楼层
楼主
发表于 2021-4-14 19:38:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
5F 币
有一款仿真软件是使用如下方法进行二次开发的:
file:///C:\Users\XIAOJIANJJJ\Documents\Tencent Files\1429709479\Image\C2C\HTLG$2G3BL_EZRW)25~R4IJ.png1. Implement an equation for wear rate within the FORTRAN subroutine and save it as UserWearModel.fNote: A sample UserWearModel.f exists within the advanteng bin.
2. Compile the subroutine to a *.dll file by typing the following command into the Intel FORTRAN COMPILER:
>ifort /DLL /libs:static /threads UserWearModel.f
3. If necessary, rename the *.dll file as UserWearModel.dll
4. Replace any existing UserWearModel.dll file located in the advanteng bin with the new
UserWearModel.dll
5. Create a simulation

我按照这个用VS+IVF进行编译之后,替换掉原来的.dll文件之后,发现仿真软件无法正确使用了。还有就是软件自带的.dll文件只有8kb,而我编译的确有17.5kb,文件代码如下
c     User Defined Tool Wear Subroutine
c     Version 4.4-006
c     Copyright Third Wave Systems, Inc 2003
c     7900 West 78th Street - Suite 250
c     Edina, MN 55439
c     1.952.832.5515
c
      SUBROUTINE WEARMODEL_USER(wdot,pressure,velocity,temperature,
     1            uwearpar)
c
!DEC$ ATTRIBUTES DLLEXPORT :: WEARMODEL_USER
      implicit real*8 (a-h,o-z)
      real*8 uwearpar(10)
c
c uwearpar(10) is cutting velocity unless user assigns number.
c
c Usui's Model
c
      wdot=pressure*velocity*uwearpar(1)
     1     *exp(-uwearpar(2)/(temperature+273.15))
c
      return
      end

科研任务十分紧迫,我还是个新手,对动态链接库不是特别懂,希望有大佬指点!!!

最佳答案

查看完整内容

可能有这么几个原因。 1. 你的 DLL 是32位,但仿真软件需要64位(或反过来) 2. 你的 DLL 依赖一些运行时库的DLL,需要同时复制。详解 http://dlllose.w.fcode.cn 3. 你的 DLL 没有导出必要的函数。可以用上面的链接里的软件 Dependency walker 查看导出函数,是否符合要求。
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
沙发
发表于 2021-4-14 19:38:21 | 只看该作者
可能有这么几个原因。
1. 你的 DLL 是32位,但仿真软件需要64位(或反过来)
2. 你的 DLL 依赖一些运行时库的DLL,需要同时复制。详解 http://dlllose.w.fcode.cn
3. 你的 DLL 没有导出必要的函数。可以用上面的链接里的软件 Dependency walker 查看导出函数,是否符合要求。
回复

使用道具 举报

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
板凳
发表于 2021-4-16 09:31:54 | 只看该作者
无法使用,错误提示是啥?检查代码的接口是否正确,dll是32还是64位的?
回复

使用道具 举报

4

帖子

1

主题

0

精华

入门

F 币
42 元
贡献
20 点
地板
 楼主| 发表于 2021-4-16 16:49:56 | 只看该作者
替代了之后,没有错误提示,仿真软件直接点simulation,无任何反应,简单来说就是仿真软件无法正常工作了
回复

使用道具 举报

4

帖子

1

主题

0

精华

入门

F 币
42 元
贡献
20 点
5#
 楼主| 发表于 2021-4-17 13:31:15 | 只看该作者
我下载的 Dependency walker怎么打不开DLL文件
回复

使用道具 举报

4

帖子

1

主题

0

精华

入门

F 币
42 元
贡献
20 点
6#
 楼主| 发表于 2021-4-18 19:32:25 | 只看该作者
依赖项有这个msvcr90.dll文件是什么意思
回复

使用道具 举报

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
7#
发表于 2021-4-18 20:23:05 | 只看该作者
msvcr90 = MicroSoft Visual C++ Runtime Library 9.0
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-23 10:50

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表