各位大神，USDFLD子程序，最后输出的SDV为什么全是0啊，求问！！

d992806583

      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,
     3  MATLAYO,LACCFLA)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME,ORNAME
      CHARACTER*3 FLGRAY(15)
      DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),
     1  T(3,3),TIME(2)
      DIMENSION ARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),COORD(*)
C
      REAL*8 A1,A3,Ms,Mf,Q1
      Q1=-0.011
      A1=723.
      A3=898.
      Ms=558.
      Mf=200.
C
        CALL GETVRM('TEMP',ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,
     1        MATLAYO,LACCFLA)

C     
      TEM=ARRAY(1)
        
C
      IF(KSTEP.EQ.1)THEN
       IF(KINC.EQ.0.OR.KINC.EQ.1)THEN
       STATEV(1)=0.
       STATEV(2)=0.
       STATEV(3)=0.
       FIELD(1)=0.
       END IF
       IF(TEM.LT.A1)THEN
       STATEV(2)=0.
       ELSE IF(TEM.LT.A3)THEN
       STATEV(2)=(TEM-A1)/(A3-A1)
       ELSE
       STATEV(2)=1.
       END IF
       END IF
C
      IF(KSTEP.EQ.2)THEN
       IF(TEM.LT.Ms.AND.STATEV(2).NE.0.)THEN
       STATEV(2)=1.-EXP(Q1*(Ms-TEM))
       END IF
       END IF
       STATEV(3)=(STATEV(2)-STATEV(1))/DTIME
       FIELD(1)=STATEV(1)
       STATEV(1)=STATEV(2)
      RETURN  
      END

xin123456

请问同学解决了吗！我也是全是0

d992806583

  xin123456 发表于 2016-11-14 09:34
请问同学解决了吗！我也是全是0

没有，一直再试。。好难呀

xin123456

d992806583 发表于 2016-11-14 17:01
没有，一直再试。。好难呀

关键是不知道到底是子程序的问题还是软件参数设置的问题啊

d992806583

  xin123456 发表于 2016-11-14 17:11
关键是不知道到底是子程序的问题还是软件参数设置的问题啊

是啊，程序测试很久了，软件参数方面我一点都不懂

2366021337

我的也全是零，很郁闷，你好像是做冷却过程的相变

清风若韵

应该是实现相组织演变的子程序

unique55235

楼主问题解决了吗

jinjin1991

可以看看是不是inp文件的问题，我一开始也是这样，然后在inp文件材料部分加了一句*INITIAL CONDITIONS, TYPE=FIELD就好了

yishuihanzhou

abaqus分析之美这本书里有一个usdfld的例子，可以对比参考一下。

上房揭瓦嗷

同问，楼主解决了吗