- 积分
- 8
- 注册时间
- 2009-12-31
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2010-10-9 12:13:24
|
显示全部楼层
来自 江苏南京
本帖最后由 xycf_a 于 2010-10-9 12:18 编辑
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(*),HXL(3),HXLE(3),HLSSZ(3),HCSBD(3)
DIMENSION HMAX(100)
C 计算FV
FIELD(1)=HLSSZ(1)*HXLE(1)+HLSSZ(2)*HXLE(2)+HLSSZ(3)*HXLE(3)
STATEV(1) = FIELD(1)
RETURN
END
不知道楼主你看到FILED(1)没有,这个值就是FV(1)。FILED(x)就是FV(X)(X=1,2,3,4,...)
USDFLD用法自己搜搜就可以了。
每个积分点都有这个变量,和SDV很相似. |
|