module更新和调用全局变量

yzb · 发表于 2025-8-20 00:01:34

   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)，但是好像变量没有更新上传，请问各位大佬是怎么回事。