- 积分
- 1
- 注册时间
- 2010-3-26
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2011-9-17 15:39:29
|
显示全部楼层
来自 湖南湘潭
本帖最后由 hljfy720 于 2011-9-17 15:43 编辑
SUBROUTINE HETVAL(CMNAME,TEMP,TIME,DTIME,SVAR,FLUX,PREDEF,
1 DPRED)
C
INCLUDE 'ABA_PARAM.INC'
C
CHARACTER*80 CMNAME
DIMENSION TEMP(2),STATEV(1),PREDEF(1),TIME(2),FLUX(2),DPRED(1)
C
STATEV(1)=STATEV(1)+STATEV(1)*DTIME
FLUX(1)=0.40483*STATEV(1)
RETURN
END
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 **RAY(15)
DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),
1 T(3,3),TIME(2)
DIMENSION ARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),COORD(*)
C
IF(KINC.EQ.1) THEN
STATEV(1)=5
ELSE
END IF
FIELD(1)=STATEV(1)
C
RETURN
END
我不理解的是红色字体处,是不是直接这样输出就可以了。
在论坛中更多的都是讲usdfld中的statev传至umat或者其他程序中的,但是却很少提交在返回至usdfld的statev是如何传递的。
材料的积分点数据多用call getvrm来返回,但是状态变量好像又不能用此种方法返回,该如何处理,还望指点啊? |
|