- 积分
- 0
- 注册时间
- 2014-9-29
- 仿真币
-
- 最后登录
- 1970-1-1
|
我用了USDFLD写了下面代码想测试下STATEV()状态变量到底怎么输出,材料属性里Depvar也设置了两个,但是不管怎么设置,输出SDV1 和 SDV2都始终为0,请问各位哪里设置错了呢?还是我对STATEV的理解有误?谢谢了
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,
3 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(*),
1 COORD(*)
C
IF (KINC.EQ.1) THEN
STATEV(1)=10
STATEV(2)=0.0
ELSE
STATEV(1)=100
STATEV(2)=100
END IF
RETURN
END
|
|