*HEADING
 FRICTIONAL BRAKING OF A ROTATING RIGID BODY IN 3D
 (RIGID BODY COMPRISING M3D4R ELEMENTS)
**
**  Define a rigid circular drum.
**
*NODE, NSET=AXIS
 100,  0.000,  0.000,  0.000
*NODE
 101,  0.200, 0.000, -0.075
 119,  0.000, 0.200, -0.075
 137, -0.200, 0.000, -0.075
 155,  0.000,-0.200, -0.075
 173,  0.200, 0.000, -0.075
 174,  0.000, 0.000, -0.075
*NGEN, LINE=C, NSET=FRIM
 101, 119, 1, 174
 119, 137, 1, 174
 137, 155, 1, 174
 155, 173, 1, 174
*NCOPY, SHIFT, CHANGE NUMBER=100, OLD SET=FRIM, NEW SET=NRIM
 0.000, 0.000, 0.150
 0.000, 0.000, 0.000,  1.000, 0.000, 0.000,  0.000
*NSET, NSET=DRUM
 FRIM, NRIM
*ELEMENT, TYPE=M3D4R, ELSET=DRUM
 101, 101, 102, 202, 201
 172, 172, 101, 201, 272
*ELGEN, ELSET=DRUM
 101, 71, 1, 1,
*MEMBRANE SECTION, ELSET=DRUM, MATERIAL=STEEL
.02,
*MATERIAL, NAME=STEEL
*ELASTIC
2.E+9, .3
*DENSITY
1.0e-6, 
*ELEMENT, TYPE=MASS, ELSET=PMASS
 100, 100
*MASS, ELSET=PMASS
 5., 
*ELEMENT, TYPE=ROTARYI, ELSET=RMASS
 200, 100
*ROTARY INERTIA, ELSET=RMASS
 0.001, 0.001, .175
**
**  Start with it spinning at 60 rad/sec.
**
*BOUNDARY
 100, 1, 5
*INITIAL CONDITIONS, TYPE=VELOCITY
 100, 6, 60.
**
**  Define a deformable brake pad.
**
*NODE
 501, -0.200, -0.050, -0.050
 502, -0.250, -0.050, -0.050
 521, -0.200,  0.050, -0.050
 522, -0.250,  0.050, -0.050
 600, -0.250,  0.000,  0.000
*NGEN, NSET=FSIDE
 501, 521, 2
 502, 522, 2
*NCOPY, SHIFT, CHANGE NUMBER=100, OLD SET=FSIDE, NEW SET=NSIDE
 0.000, 0.000, 0.100
 0.000, 0.000, 0.000,  1.000, 0.000, 0.000,  0.000
*NSET, NSET=PAD
 FSIDE, NSIDE
*ELEMENT, TYPE=C3D8R, ELSET=PAD
 501,  501, 503, 504, 502, 601, 603, 604, 602
*ELGEN, ELSET=PAD
 501,  10, 2, 1
*SOLID SECTION, ELSET=PAD, MATERIAL=STUFF
**
**  Make it a soft rubber pad.
**
*MATERIAL, NAME=STUFF
*HYPERELASTIC, N=1
 552.E3, 138.E3, 1.45E-7
*DENSITY
 5.E3, 
**
**  Use a second rigid body to hold the brake pad.
**
*ELEMENT, TYPE=R3D4, ELSET=PLATE
 601,  502, 504, 604, 602
*ELGEN, ELSET=PLATE
 601,  10, 2, 1
*BOUNDARY
 600, 2, 6, 0.
**
**  Run the simulation for 0.2 seconds.
**
*ELSET,ELSET=EALL1
PAD,
*ELSET,ELSET=EALL2
PMASS,
*ELSET,ELSET=EALL3
RMASS,
*SURFACE,TYPE=ELEMENT, NAME=DRUM, NO THICK
 DRUM, SPOS
*SURFACE,TYPE=ELEMENT, NAME=PAD_LOAD
 PAD, S5
*SURFACE,TYPE=ELEMENT, NAME=PAD
 PAD, S3
*RIGID BODY, ELSET=DRUM, REF NODE=100
*RIGID BODY, ELSET=PLATE, REF NODE=600
*NSET,NSET=QA_TEST_AXIS
AXIS,
**
*STEP
*DYNAMIC, EXPLICIT
 , .2
**
**  Define contact between the drum and the pad.
**
*SURFACE INTERACTION,NAME=DRUM_PAD
*FRICTION
 0.15,
*CONTACT PAIR,INTERACTION=DRUM_PAD
 DRUM, PAD
**
**  Apply a constant pressure to the pad.
**
*DSLOAD
 PAD_LOAD, P, 350.E3
**
**  Some typical output requests.
**
*RESTART,TIMEMARKS=YES, WRITE, NUMBER=1
**
*FILE OUTPUT, NUMBER=2, TIMEMARKS=YES
*NODE FILE,NSET=AXIS
 U,
**
***OUTPUT,HISTORY,TIME INTERVAL=0.
***NODE OUTPUT,NSET=AXIS
**RF1,RF2,RM3,UR3,VR3,AR3
***ENERGY OUTPUT
**ALLIE,ALLKE,ALLPD,ALLSE,ALLVD,ALLWK,ETOTAL,ALLFD
***ENERGY OUTPUT,ELSET=EALL1
**ALLIE,ALLKE,ALLSE,
***ENERGY OUTPUT,ELSET=EALL2
**ALLIE,ALLKE,ALLSE,
***ENERGY OUTPUT,ELSET=EALL3
**ALLIE,ALLKE,ALLSE,
**
*OUTPUT, FIELD, NUMBER INTERVAL=2, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_AXIS
 U,
*OUTPUT,FIELD,VARIABLE=PRESELECT
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.1
*END STEP