Fortran Coder

标题: module更新和调用全局变量 [打印本页]

作者: yzb 时间: 2025-8-20 00:01
标题: module更新和调用全局变量
   MODULE KVISUAL
   IMPLICIT NONE
   DOUBLE PRECISION CRACK
   DOUBLE PRECISION CMARKER(15000,2,1)
   DOUBLE PRECISION SH_GMIN(1000000,2), SH_GMAX(1000000,2), SH_D(1000000,2)
   SAVE
   END MODULE

   SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
   1 RPL,DDSDDT,DRPLDE,DRPLDT,
   2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,
   3 NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,
   4 CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,JSTEP,KINC)
!
   USE KVISUAL
我想实时更新和调用我的全局变量SH_GMIN(1000000,2), SH_GMAX(1000000,2), SH_D(1000000,2)，但是好像变量没有更新上传，请问各位大佬是怎么回事。

作者: yzb 时间: 2025-8-20 00:21
SH_D(NOEL, NPT) = DMG_S
BBA = SH_D(NOEL,NPT)
是我module的用法有问题吗

作者: 楚香饭 时间: 2025-8-20 20:44
从给出的代码片段来看，没有问题。

如果不符合你的预期，建议单步debug调试

作者: yzb 时间: 2025-9-4 16:46

楚香饭发表于 2025-8-20 20:44
从给出的代码片段来看，没有问题。

如果不符合你的预期，建议单步debug调试 ...

感谢回答，因为后续解决了所以没有及时回复，因为我的互相调用的两个模型中间有空白单元号，跳单元号了，我改成连续的就没问题了

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