*HEADING
HERTZ CONTACT PROBLEM WITH SUBSTRUCTURING AND CPE6M ELEMENTS
SUBSTRUCTURE ANALYSIS
Requires substructure generation file
hertzcontact_cpe6m_gen1.inp
*NODE
*NODE,NSET=FIX
*ELEMENT,TYPE=R2D2
*ELGEN,ELSET=RIGID
*nset,nset=nbotsur
*RIGID BODY,ELSET=RIGID,REF NODE=300
*surface,type=node,NAME=BOTSUR
nbotsur,1.0
*surface,NAME=RIGSUR
RIGID,SPOS
*CONTACT PAIR,INTERACTION=NO_FRI,SMALL SLIDING
BOTSUR,RIGSUR
*SURFACE INTERACTION,NAME=NO_FRI
1.0,
**
**
*ELEMENT,TYPE=Z1002,ELSET=SUPER, FILE=hertzcontact_cpe6m_gen1
*SUBSTRUCTURE PROPERTY,ELSET=SUPER,POSITION TOL=0.
*NORMAL
RIGID,FIX,,1.
*BOUNDARY
 300,1,6
 1,1
*RESTART,WRITE
*STEP
*STATIC,DIRECT
 1.,
*BOUNDARY
 272,2,2,-.4
*CONTACT PRINT ,SLAVE=BOTSUR,MASTER=RIGSUR
*CONTACT FILE ,SLAVE=BOTSUR,MASTER=RIGSUR
*PRINT,CONTACT=YES,SOLVE=YES
*NODE PRINT
U,
*OUTPUT,VAR=PRESELECT,FIELD
*SUBSTRUCTURE PATH,ENTER ELEMENT=99
*OUTPUT,VAR=PRESELECT,FIELD
*EL PRINT
S,
*NODE PRINT
U,
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,ENTER ELEMENT=99
*NODE PRINT,NSET=CYLSURF
RF,
*SUBSTRUCTURE PATH,LEAVE
*END STEP