*HEADING
 INDENTATION WITH A HEMISPHERICAL PUNCH
 ADAPTIVE MESHING VERIFICATION FOR POROUS PLASTICITY
 Unit: N, mm
*RESTART,TIMEMARKS=NO,WRITE,NUM=10
*NODE,NSET=ALLN
1,0.,300.
15,0.,0.
286,600.,300.
300,600.,0.
*NGEN,NSET=BOT
15,300,15
*NGEN,NSET=CENTER
1,15,1
*NGEN,NSET=LEFT
1,15,1
*NGEN,NSET=RIGHT
286,300,1
*NFILL,NSET=NALL
LEFT,RIGHT,19,15
*ELEMENT,TYPE=CAX4R,ELSET=POROUS
1,2,17,16,1
*ELGEN,ELSET=POROUS
1,14,1,1,19,15,14
*ELSET,ELSET=UPPER,GEN
1,253,14
*NODE,NSET=PUNCH
1000,0.,500.
*NSET,NSET=NOUT
1000, 
*ELEMENT,TYPE=MASS,ELSET=PMASS
2001,1000
*MASS,ELSET=PMASS
0.2, 
*SOLID SECTION,ELSET=POROUS,MATERIAL=POROUS,CONTROL=SECT
*SECTION CONTROLS,NAME=SECT,HOURGLASS=STIFFNESS
*MATERIAL,NAME=POROUS
*ELASTIC
3.0E6,0.3
*PLASTIC
0.15E5, 0.0
0.6E5,  1.0
*POROUS METAL PLASTICITY, RELATIVE DENSITY=.9
1.5,1.,2.25
*VOID NUCLEATION
.3,0.1,.04
*POROUS FAILURE CRITERIA
0.6,0.59
*DENSITY
1.E-2, 
*BOUNDARY
BOT,1,2
CENTER,1,1
RIGHT, 1,1
NOUT,1
NOUT,6
*AMPLITUDE,NAME=RAMPP,TIME=TOTAL TIME, DEFINITION=SMOOTH STEP
0.0,0.0,0.6,-250.
*SURFACE, TYPE=SEGMENT, NAME=PUNCH, FILLET RADIUS=.01
START,200.,700.
LINE,200., 500.
CIRCL,0., 300.,0.,500.
*SURFACE,TYPE=ELEMENT,NAME=TARGET, REGION TYPE=SLIDING
UPPER,S3
*RIGID BODY,REF NODE=1000, ANALYTICAL SURFACE =PUNCH
*ELSET,ELSET=QA_TEST_UPPER
UPPER,
*NSET,NSET=QA_TEST_NOUT
NOUT,
**
*STEP
*DYNAMIC,EXPLICIT
,.6
*BOUNDARY,AMPLITUDE=RAMPP
1000,2,2,1.
*SURFACE INTERACTION,NAME=IMP_TARG
*FRICTION
.1, 
*CONTACT PAIR,INTERACTION=IMP_TARG
PUNCH,TARGET
***OUTPUT,HISTORY,TIME INTERVAL=0.0008
***ELEMENT OUTPUT,ELSET=UPPER
**MISES,PEEQ
***NODE OUTPUT,NSET=NOUT
**RF,U
*FILE OUTPUT,NUMBER INTERVAL=6, TIMEMARKS=YES
*EL FILE, ELSET=UPPER
PEEQ,
*NODE FILE,NSET=NOUT
 U
*ENERGY FILE
*ADAPTIVE MESH,ELSET=POROUS,FREQUENCY=1
*OUTPUT, FIELD, NUMBER INTERVAL=6, TIMEMARKS=YES
*ELEMENT OUTPUT, ELSET=QA_TEST_UPPER
PEEQ,
*NODE OUTPUT, NSET=QA_TEST_NOUT
 U
*OUTPUT,FIELD,VARIABLE=PRESELECT
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.1
*END STEP