module更新和调用全局变量

yzb

      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

SH_D(NOEL, NPT) = DMG_S
BBA = SH_D(NOEL,NPT)
是我module的用法有问题吗