*HEADING
ADAPTIVE MESHING VERIFICATION
WAVE THROUGH STEEL
Units: N, m
*RESTART,TIMEMARKS=NO,WRITE,NUM=6
*NODE
1,5.,0.,3.0
100,5.0,0.,30.6
501,0.0,0.0,3.0
600,0.0,0.0,30.6
1001,5.,-.575,3.00
1100,5.,-.575,30.6
1501,0.0,-.575,3.00
1600,0.0,-.575,30.6
*NGEN,NSET=RBOTEU
1,501,100
*NGEN,NSET=LBOTEU
100,600,100
*NFILL,NSET=BOTEU
RBOTEU,LBOTEU,99,1
*NGEN,NSET=RTOPEU
1001,1501,100
*NGEN,NSET=LTOPEU
1100,1600,100
*NFILL,NSET=TOPEU
RTOPEU,LTOPEU,99,1
*NSET,NSET=EULER
RBOTEU,LBOTEU,RTOPEU,LTOPEU,
*NSET,NSET=NALLEU
BOTEU,TOPEU
*ELEMENT,TYPE=C3D8R,ELSET=STEELEU
1,1,101,1101,1001,2,102,1102,1002
*ELGEN,ELSET=STEELEU
1,99,1,1,5,100,99,
*ELSET, ELSET=EULER1
1,100,199,298,397
*ELSET, ELSET=EULER2
99,198,297,396,495
*******************
*NODE
10001,5.,2.0,3.00
10100,5.0,2.0,30.6
10501,0.0,2.0,3.00
10600,0.0,2.0,30.6
11001,5.,1.425,3.00
11100,5.,1.425,30.6
11501,0.0,1.425,3.00
11600,0.0,1.425,30.6
*NGEN,NSET=RBOTLAG
10001,10501,100
*NGEN,NSET=LBOTLAG
10100,10600,100
*NFILL,NSET=BOTLAG
RBOTLAG,LBOTLAG,99,1
*NGEN,NSET=RTOPLAG
11001,11501,100
*NGEN,NSET=LTOPLAG
11100,11600,100
*NFILL,NSET=TOPLAG
RTOPLAG,LTOPLAG,99,1
*NSET,NSET=NALLLAG
BOTLAG,TOPLAG
*ELEMENT,TYPE=C3D8R,ELSET=STEELLAG
10000,10001,10101,11101,11001,10002,10102,11102,11002
*ELGEN,ELSET=STEELLAG
10000,99,1,1,5,100,99,
*******************
*SOLID SECTION,ELSET=STEELEU,MATERIAL=STEEL, CONTROL=SECTEU
*SECTION CONTROLS, NAME=SECTEU, HOURGLASS=STIFFNESS
*SOLID SECTION,ELSET=STEELLAG,MATERIAL=STEEL, CONTROL=SECTLAG
*SECTION CONTROLS, NAME=SECTLAG, HOURGLASS=STIFFNESS
*MATERIAL,NAME=STEEL
*ELASTIC
2.E11, .3
*PLASTIC
250.E6,0.
700.E7,1.
*DENSITY
7850., 
*NSET,NSET=OUT
1,101,25,50,75,
10001,10101,10025,10050,10075
*NSET,NSET=XSYM1,GEN
501,600,1
1501,1600,1
10501,10600,1
11501,11600,1
*NSET,NSET=XSYM2,GEN
401,500,1
1401,1500,1
10401,10500,1
11401,11500,1
*NSET,NSET=XSYM3,GEN
301,400,1
1301,1400,1
10301,10400,1
11301,11400,1
*NSET,NSET=XSYM4,GEN
201,300,1
1201,1300,1
10201,10300,1
11201,11300,1
*NSET,NSET=XSYM5,GEN
101,200,1
1101,1200,1
10101,10200,1
11101,11200,1
*NSET,NSET=XSYM6,GEN
1,100,1
1001,1100,1
10001,10100,1
11001,11100,1
*NSET,NSET=YSYM1,GEN
1,100,1
101,200,1
201,300,1
301,400,1
401,500,1
501,600,1
10001,10100,1
10101,10200,1
10201,10300,1
10301,10400,1
10401,10500,1
10501,10600,1
*NSET,NSET=YSYM2,GEN
1001,1100,1
1101,1200,1
1201,1300,1
1301,1400,1
1401,1500,1
1501,1600,1
11001,11100,1
11101,11200,1
11201,11300,1
11301,11400,1
11401,11500,1
11501,11600,1
*BOUNDARY
XSYM1,XSYMM
XSYM6,XSYMM
YSYM1,YSYMM
YSYM2,YSYMM
*AMPLITUDE, DEFINITION=SMOOTH STEP,NAME=AMP,TIMe=TOTAL TIME
0.0, 200.0, 20.E-5, 250.,40.E-5, 200.0,1.0, 200. 
*INITIAL CONDITIONS, TYPE=VELOCITY
NALLLAG,3,200.
NALLEU,3,200.
*ELSET,ELSET=OUT,GEN
1,10,1
10000,10009,1
*ELSET,ELSET=QA_TESTOUT,GEN
1,10,1
10000,10009,1
*NSET,NSET=QA_TESTOUT
1,101,25,50,75,
10001,10101,10025,10050,10075
*SURFACE,TYPE=ELEMENT, NAME=EULER2, REGION TYPE=EULERIAN
EULER2,S2
*ELSET,ELSET=QA_TEST_OUT
OUT,
*NSET,NSET=QA_TEST_OUT
OUT,
**
*STEP
*DYNAMIC,EXPLICIT
,50.E-5
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=AMP
1,3,3,1.0
101,3,3,1.0
201,3,3,1.0
301,3,3,1.0
401,3,3,1.0
501,3,3,1.0
1001,3,3,1.0
1101,3,3,1.0
1201,3,3,1.0
1301,3,3,1.0
1401,3,3,1.0
1501,3,3,1.0
10001,3,3,1.0
10101,3,3,1.0
10201,3,3,1.0
10301,3,3,1.0
10401,3,3,1.0
10501,3,3,1.0
11001,3,3,1.0
11101,3,3,1.0
11201,3,3,1.0
11301,3,3,1.0
11401,3,3,1.0
11501,3,3,1.0
*FILE OUTPUT, NUMBER=2, TIME MARKS=YES
*EL FILE,ELSET=OUT
PRESS,
*NODE FILE,NSET=OUT
U,
***OUTPUT,HISTORY,TIME INTERVAL=1.E-4
***ELEMENT OUTPUT,ELSET=OUT
**S,PRESS
***NODE OUTPUT,NSET=OUT
**U,V
***ENERGY OUTPUT
**ALLKE,ALLIE,ALLAE,ALLVD,ALLWK,ETOTAL,
**DT,
*OUTPUT,FIELD,NUMBER INTERVAL=2,VARIABLE=PRESELECT
*OUTPUT,FIELD,NUMBER INTERVAL=4
*ELEMENT OUTPUT,ELSET=QA_TESTOUT
PRESS,S
*NODE OUTPUT,NSET=QA_TESTOUT
U,V
*OUTPUT, FIELD, NUMBER INTERVAL=2, TIMEMARKS=YES
*ELEMENT OUTPUT, ELSET=QA_TEST_OUT
PRESS,
*NODE OUTPUT, NSET=QA_TEST_OUT
U,
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.00025
*END STEP
*STEP
*DYNAMIC, EXPLICIT,ELEMENT BY ELEMENT
,450.E-5
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=AMP,REGION TYPE=EULERIAN
1,3,3,1.0
101,3,3,1.0
201,3,3,1.0
301,3,3,1.0
401,3,3,1.0
501,3,3,1.0
1001,3,3,1.0
1101,3,3,1.0
1201,3,3,1.0
1301,3,3,1.0
1401,3,3,1.0
1501,3,3,1.0
*ADAPTIVE MESH,ELSET=STEELEU,CONTROLS=UPDATED,FREQUENCY=1,INITIAL MESH SWEEPS=1, MESH SWEEPS=1
*ADAPTIVE MESH CONSTRAINT
EULER,3,3, 0.0
*ADAPTIVE MESH CONTROLS,NAME=UPDATED,MOMENTUM ADVECTION=HALF INDEX SHIFT,
MESHING PREDICTOR=PREVIOUS
*FILE OUTPUT, NUMBER=2, TIME MARKS=YES
*EL FILE,ELSET=OUT
PRESS,
*NODE FILE,NSET=OUT
U,
*OUTPUT, FIELD, NUMBER INTERVAL=2, TIMEMARKS=YES
*ELEMENT OUTPUT, ELSET=QA_TEST_OUT
PRESS,
*NODE OUTPUT, NSET=QA_TEST_OUT
U,
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.00225
*END STEP