*HEADING
ADAPTIVE MESHING EXAMPLE
FLAT ROLLING - ADAPTIVE MESH,
EULERIAN INLET NODES
Units - N, m, second
**
*RESTART,W,N=20
*NODE
1,   -.0851, 0.00000,  0.00000
253, -.0851, 0.02000,  0.00000
42,  -.0200, 0.00000,  0.00000
294, -.0200, 0.02000,  0.00000
2059,-.0851, 0.00000,  0.05000
2100,-.0200, 0.00000,  0.05000
2311,-.0851, 0.02000,  0.05000
2352,-.0200, 0.02000,  0.05000 
*NGEN, NSET=BOT1
1,42,1
*NGEN, NSET=TOP1
253,294,1
*NFILL,NSET=FRONT
BOT1, TOP1, 6, 42
*NGEN, NSET=BOT2
2059,2100,1
*NGEN, NSET=TOP2
2311,2352, 1
*NFILL,NSET=BACK
BOT2,TOP2, 6, 42
*NFILL, NSET=BAR
FRONT,BACK, 7, 294
*ELEMENT, TYPE=C3D8R
       1,       1,       2,      44,      43,     
     295,     296,     338,     337
*ELGEN, ELSET=BAR
1,41,1,1,6,42,41,7,294,246
*NSET,NSET=BOT,GEN
1,42,1
295,336,1
589,630,1
883,924,1 
1177,1218,1 
1471,1512,1 
1765,1806,1
2059,2100,1 
*SOLID SECTION,ELSET=BAR,MAT=C15,CONTROLS=SECT
1., 
*SECTION CONTROLS, NAME=SECT,HOURGLASS=STIFFNESS
**
*MATERIAL,NAME=C15
*ELASTIC
1.5E11,.3
*PLASTIC
168.72E06,0
219.33E06,0.1
272.02E06,0.2
308.53E06,0.3
337.37E06,0.4
361.58E06,0.5
382.65E06,0.6
401.42E06,0.7
418.42E06,0.8
434.01E06,0.9
448.45E06,1.0
*DENSITY
7.85E3, 
***********************************************
****   ROLL
*NODE,NSET=REF
10000,  0.0409 ,  0.185
*INITIAL CONDITIONS,TYPE=VELOCITY
BAR,1,.30
*NSET,NSET=LEFT,GEN
1,294,1
*BOUNDARY
LEFT,ZSYMM
BOT,YSYMM
*ELSET,ELSET=SIDE,GEN
1477,1722,1
*ELSET,ELSET=TOP,GEN
206,246,1
452,492,1
698,738,1
944,984,1
1190,1230,1
1436,1476,1
1682,1722,1
*NSET,NSET=EULER,GEN
1,253,42
295,547,42
589,841,42
883,1135,42
1177,1429,42
1471,1723,42
1765,2017,42
2059,2311,42
*NSET,NSET=EULERINT,GEN
337,505,42
631,799,42
925,1093,42
1219,1387,42
1513,1681,42
1807,1975,42
*NSET, NSET=EULERSMALL1, GEN
295,547,42
589,841,42
883,1135,42
1177,1429,42
1471,1723,42
1765,2017,42
2059,2311,42
*NSET, NSET=EULERSMALL2, GEN
43,253,42
337,547,42
631,841,42
925,1135,42
1219,1429,42
1513,1723,42
1807,2017,42
2101,2311,42
*NSET,NSET=EQN,GEN
43,253,42
295,547,42
589,841,42
883,1135,42
1177,1429,42
1471,1723,42
1765,2017,42
2059,2311,42
*EQUATION
2, 
EQN,1,1.,1,1,-1.
*ELSET, ELSET=EULER, GEN
1,1477,246
42,1518,246
83,1559,246
124,1600,246
165,1641,246
206,1682,246
*SURFACE, NAME=SURF1, REGION TYPE=SLIDING
TOP,S5
SIDE,S2
*SURFACE, REGION TYPE=EULERIAN, NAME=EULER1
EULER,S6
*SURFACE,TYPE=CYLINDER,NAME=RIGID,
FILLET RADIUS=.001
0.0409 ,  0.185, 0.0, 0.05, 0.185,0.0
0.0409 , 0.185, -0.05
START,0.0,-0.175
CIRCL,-0.175,0.0,0.0,0.0
CIRCL,0.0,0.175,0.0,0.0
*RIGID BODY, REFNODE=10000, 
ANALYTICAL SURFACE = RIGID
*NSET, NSET=QA_TEST_REFN
REF,
*ELSET, ELSET=QA_TEST
236
*NSET, NSET=QA_TEST
TOP1,
*FILTER, NAME=SMOOTH, TYPE=BUTTERWORTH
 50, 2
*STEP
*DYNAMIC,EXPLICIT
,0.50
*STEADY STATE DETECTION,ELSET=BAR,
SAMPLING=PLANE BY PLANE
1.0, 0., 0.,  .1, 0.0, 0.0
*STEADY STATE CRITERIA
SSPEEQ,    , .0409, 0., 0.
SSSPRD,    , .0409, 0., 0.
SSTORQ, .01, .0409, 0., 0., 10000, 0., 0., 1.
SSFORC, .01, .0409, 0., 0., 10000, 0., 1., 0.
*BOUNDARY
10000,1,5
*BOUNDARY,TYPE=VELOCITY
10000,6,6,6.2832
*BOUNDARY,TYPE=VELOCITY,REGION TYPE=EULERIAN
EULERSMALL1,3,3,0.0
EULERSMALL2,2,2,0.0
*FIXED MASS SCALING, FACTOR=2750.
*SURFACE INTERACTION,NAME=FRICT
*FRICTION
 0.3,
*CONTACT PAIR,INTERACTION=FRICT
SURF1,RIGID
************************************
****      OUTPUT REQUESTS       ****
************************************
*FILE OUTPUT, NUMBER INTERVAL=1, TIMEMARKS=YES
*EL FILE, ELSET=TOP
 PEEQ,
*NODE FILE,NSET=REF
 U,RF
*OUTPUT, FIELD,NUMBER INTERVAL=10
*ELEMENT OUTPUT
 PEEQ,
*NODE OUTPUT
 U,V
************************************
****   OUTPUT FOR QA PURPOSES   ****
************************************
*OUTPUT, HISTORY, TIME INTERVAL = 2.5E-3
*ENERGY OUTPUT, VAR=PRESELECT
*OUTPUT, HISTORY, TIME INTERVAL = 2.5E-3, FILTER=SMOOTH
*NODE OUTPUT, NSET=QA_TEST_REFN
 RF2,RM3
**INCREMENTATION OUTPUT
**SSPEEQ,SSSPRD,SSTORQ,SSFORC
******
*ADAPTIVE MESH, ELSET=BAR,FREQUENCY=5,
MESH SWEEPS=5,CONTROLS=ALE
*ADAPTIVE MESH CONSTRAINT
EULER,1,3,0.0
*ADAPTIVE MESH CONTROLS,NAME=ALE,MESHING =CURRENT	
*ENDSTEP