*HEADING
 SUBSTRUCTURE ANALYSIS    
 WITH A KINEMATIC COUPLING CONSTRAINT IN THE SUBSTRUCTURE
 Requires substructure generation file 
 hertzcontact_2d_kincoup_gen1.inp
*NODE
 201, 0.,-10.
*NODE,SYSTEM=C
 209,10.,-78.
*NGEN,LINE=C
 201,209
*NODE
   1, 
 300, 0.     ,-11.
*NODE,NSET=FIX
 301, 0.     ,-10.
 302, 0.26177,-10.
 303, 0.52336,-10.
 304, 0.78459,-10.
 305, 1.04528,-10.
 306, 1.30526,-10.
 307, 1.56434,-10.
 308, 1.82236,-10.
 309, 2.07912,-10.
*ELEMENT,TYPE=R2D2
101,301,302
*ELGEN,ELSET=RIGID
101,8,1,1
*nset,nset=NBOTSUR,GENERATE
201,209,1
*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=Z1001,ELSET=SUPER,FILE=hertzcontact_2d_kincoup_gen1
 99,  1,201,202,203,204,205,206,207,208,209
*SUBSTRUCTURE PROPERTY,ELSET=SUPER,POSITION TOL=0.
*NORMAL
RIGID,FIX,,1.
*BOUNDARY
 300,1,6
 1,1,6
*RESTART,WRITE
*STEP
*STATIC,DIRECT
 1., 
*BOUNDARY
 1,2,2,-.4
*CONTACT PRINT ,SLAVE=BOTSUR,MASTER=RIGSUR
*CONTACT FILE ,SLAVE=BOTSUR,MASTER=RIGSUR
*PRINT,CONTACT=YES,SOLVE=YES
*NODE PRINT
U,
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER ELEMENT=99
*OUTPUT,VAR=PRESELECT,FIELD
*EL PRINT
 S ,
*NODE PRINT
 U,
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,ENTER ELEMENT=99
*OUTPUT,VAR=PRESELECT,FIELD
*EL PRINT,ELSET=TOP
E,
*EL FILE,ELSET=BOT
S,E
*NODE PRINT,NSET=CYLSURF
RF, 
*SUBSTRUCTURE PATH,LEAVE
*END STEP