Fortran Coder

标题: module使用是否有误 [打印本页]

作者: 刘哲睿 时间: 2023-8-14 20:26
标题: module使用是否有误
本帖最后由刘哲睿于 2023-8-14 20:26 编辑

各位大神好，我这里有不太清楚的地方：为了使用一些类似于全局变量功能的数据，我使用module定义如下变量

[Fortran] 纯文本查看 复制代码

     module hiden_para

      implicit none

      real*8 h_c1(10000)

      real*8 h_c2(10000)

      real*8 h_s1(10000)

      real*8 h_s2(10000)

      real*8 h_m(10000)

      !h为应该使用的网络隐藏层参数

      real*8 h1_c1(10000)

      real*8 h1_c2(10000)

      real*8 h1_s1(10000)

      real*8 h1_s2(10000)

      real*8 h1_m(10000)

      !h1为下一步使用的网络隐藏层参数

      real*8 hy_c1(10000)

      real*8 hy_c2(10000)

      real*8 hy_s1(10000)

      real*8 hy_s2(10000)

      real*8 hy_m(10000)

      common h_c1,h_c2,h_s1,h_s2,h_m

      common h1_c1,h1_c2,h1_s1,h1_s2,h1_m

      common hy_c1,hy_c2,hy_s1,hy_s2,hy_m

      !hy为保存更新前网络隐藏层参数

      end

由于这个程序时abaqus计算软件中用到的子程序，在后面使用如下:

[Fortran] 纯文本查看 复制代码

     SUBROUTINE UEL(RHS,AMATRX,SVARS,ENERGY,NDOFEL,NRHS,NSVARS,

     1     PROPS,NPROPS,COORDS,MCRD,NNODE,U,DU,V,A,JTYPE,TIME,

     1     DTIME,KSTEP,KINC,JELEM,PARAMS,NDLOAD,JDLTYP,ADLMAG,

     1     PREDEF,NPREDF,LFLAGS,MLVARX,DDLMAG,MDLOAD,PNEWDT,

     1     JPROPS,NJPROP,PERIOD) 

      use hiden_para

      INCLUDE 'ABA_PARAM.INC'

      h_s1=SVARS(49:10048)

      h_s2=SVARS(10049:20048)

      h_c1=SVARS(20049:30048)

      h_c2=SVARS(30049:40048)

      h_m=SVARS(40049:50048)

      write(*,*) h_m(1:10)

      h1_s1=h_s1



      !h1_s2=h_s2

      !h1_c1=h_c1

      !h1_c2=h_c2

      !h1_m=h_m

      !hy_s1=h_s1

      !hy_s2=h_s2

      !hy_c1=h_c1

      !hy_c2=h_c2

      !hy_m=h_m

其中svars数组是软件计算过程中传入的不需要预先定义但是上个子程序在运行的过程中回出现如下错误
Unexpected LoadLibraryA error 193
然而当我修改程序注释掉上文中 h1_s1=h_s1时程序可以正常运行，请问这个问题和我module的使用是否有关？

作者: 风平老涡 时间: 2023-8-14 23:14
本帖最后由风平老涡于 2023-8-14 23:18 编辑

有可能是32位程序调用64位库或64位程序调用32位库。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)