*HEADING
 : DRUCKER-PRAGER CREEP AND PLASTICITY, UNIAXIAL TENSION, (C3D8)
 SINGH-MITCHELL CREEP DEFINED USING USER-SUBROUTINE
*NODE,NSET=ALLN
1,0.,0.,0.
2,1.,0.,0.
3,1.,1.,0.
4,0.,1.,0.
5,0.,0.,1.
6,1.,0.,1.
7,1.,1.,1.
8,0.,1.,1.
*ELEMENT,TYPE=C3D8,ELSET=ALLE
1,1,2,3,4,5,6,7,8
*Distribution Table, name=distTableElastic
 modulus, ratio
*Distribution, name=distElastic, table=distTableElastic, location=element
 , 10.e3, 0.25
 ALLE, 300.0E3, 0.3
*SOLID SECTION,ELSET=ALLE,MATERIAL=ALLE
*MATERIAL,NAME=ALLE
*ELASTIC
 distElastic,
*DRUCKER PRAGER
40.,1.,40.
*DRUCKER PRAGER HARDENING,TYPE=TENSION
6.E3,0.
9.E3,.02
11.E3,.063333
12.E3,.11
12.E3,1.
*DRUCKER PRAGER CREEP, LAW=user
** A, alpha, m, t1
**0.002, 1.0e-6, 1.0, 1.0
*****
*DEPVAR
1
1,CE,Creep Strain
*BOUNDARY
1,PINNED
2,2
5,2
6,2
4,1
5,1
8,1
2,3
3,3
4,3
*STEP,INC=500
*VISCO, CETOL=0.01
0.1,20.
*BOUNDARY
7,3,,.4
5,3,,.4
6,3,,.4
8,3,,.4
*EL PRINT, FREQ=9999
S, 
SINV, 
E, 
PE, 
EE, 
CE, 
*NODE PRINT, FREQ=9999
U, 
RF, 
*OUTPUT,FIELD,FREQ=2
*ELEMENT OUTPUT
S,E,PE,CEEQ,SDV
*NODE PRINT, FREQ=2
U, 
*END STEP