用户子程序USDFLD

songshengxia

想利用USDFLD实现场变量在不同step之间的变化，编写了如下子程序，在foutran中运行，出现19处错误，请高手指点！！

SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,
     1 TIME,DTIME,CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,
     2 KSPT,KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO,LACCFLA)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME,ORNAME
      CHARACTER*3  FLGRAY(15)
      DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),
     1T(3,3),TIME(2)
      DIMENSION ARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),COORD(*)
      IF (KSTEP.EQ.2) THEN ！当STEP=2时的场变量
      IF (DELTA(E)>0.15)
      FIELD=FIELD(2)
      ELSE
      FIELD=FIELD(1)
      END IF
      ELSE
      FIELD=FIELD(1)
      END IF
      
            RETURN
      END

zhangmeng

场变量在不同step变化不需要用usdfld，可以直接用amp描述变化的
仅供参考

songshengxia

场变量不仅是随着step的不同变化，而且和每个step中的应变的大小有关，是不是得用usdfld子程序呢