27 lines
714 B
FortranFixed
27 lines
714 B
FortranFixed
|
c J. Grogan, 2012
|
||
|
|
c -------------------------------------------------------------------
|
||
|
|
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 -------------------------------------------------------------------
|
||
|
|
field(1)=0.
|
||
|
|
return
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|