*HEADING
ADAPTIVE MESHING EXAMPLE
2D AXISYMMETRIC FORGING EXAMPLE
Units - N, m, sec
*RESTART, WRITE, NUMBER=10
*NODE
   1,  0.00, 0.00
  97,  0.02, 0.00
1165,  0.00, 0.01
1261,  0.02, 0.01
10000, 0.01, 0.02
*NGEN, NSET=BOT
1,97,1
*NGEN, NSET=TOP
1165,1261,1
*NFILL,NSET=NALL
BOT, TOP, 12, 97
*NGEN, NSET=CENTER
1,1165,97
*ELEMENT, TYPE=CAX4R
1,1,2,99,98
*ELGEN, ELSET=METAL0
1,95,1,1,12,97,96,
*ELEMENT, TYPE=CAX4R
96, 96,97,194,193
*ELGEN, ELSET=METAL1
96,12,97,96
*ELSET,ELSET=METAL
METAL0,METAL1
*ELEMENT, TYPE=MASS, ELSET=PMASS
10000, 10000
*MASS, ELSET=PMASS
0.2, 
*ELSET, ELSET=UPPER, GEN
1057,1152,1
*ELSET, ELSET=SIDE, GEN
96,1152,96
*SOLID SECTION, ELSET=METAL, MATERIAL=STEEL
*MATERIAL, NAME=STEEL
*ELASTIC
200.E+9, .3
*PLASTIC
1.E+8, 0.0
3.1E+9, 10.0
*DENSITY
7800.E+1, 
*BOUNDARY
BOT, 2,2
CENTER, 1,1
10000,1,1
10000,6,6
*SURFACE, TYPE=SEGMENTS, NAME=RSURF, 
FILLET RADIUS=.001
*INCLUDE, INPUT=ale_sinusoid_forgingaxisurf.inp
*SURFACE,TYPE=ELEMENT, NAME=TARGET, 
REGION TYPE=SLIDING
UPPER, S3
SIDE, S2
*RIGID BODY, REF NODE=10000, 
ANALYTICAL SURFACE =RSURF
*NSET, NSET=QA_TEST_REFN
10000,
*ELSET, ELSET=QA_TEST,GEN
1066,1082,1
1101,1115,1
1135,1142,1
*NSET, NSET=QA_TEST,GEN
1165,1245,
*STEP
*DYNAMIC, EXPLICIT
,.00038
*SURFACE INTERACTION, NAME=INTER
*CONTACT PAIR, INTERACTION=INTER
RSURF, TARGET
*BOUNDARY, TYPE=VELOCITY
10000, 2, 2, -20. 
*FILE OUTPUT,NUMBER INTERVAL=1, TIMEMARKS=YES
*EL FILE, ELSET=QA_TEST
 LE,
*NODE FILE, NSET=QA_TEST
 U,
*ENERGY FILE
*****
*OUTPUT, FIELD, TIME MARKS=YES, NUMBER INTERVAL=1
*ELEMENT OUTPUT, ELSET=QA_TEST
PEEQ,
*NODE OUTPUT, NSET=QA_TEST
U,
*OUTPUT, FIELD, VAR=PRESELECT
*OUTPUT, HISTORY, TIMEINT=0.000038
*ENERGY OUTPUT, VAR=PRESELECT
******
*ADAPTIVE MESH,ELSET=METAL,FREQUENCY=5,
MESH SWEEPS=3
*END STEP