songshengxia 发表于 2009-3-24 16:54

用户子程序USDFLD

想利用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*3FLGRAY(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 发表于 2009-3-24 17:33

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

songshengxia 发表于 2009-3-25 08:12

回复 沙发 zhangmeng 的帖子

场变量不仅是随着step的不同变化，而且和每个step中的应变的大小有关，是不是得用usdfld子程序呢
页: [1]
查看完整版本: 用户子程序USDFLD