*HEADING
 : FINITE SLIDING CONTACT USING MODIFIED
TETRAHEDRAL ELEMENTS
ZERO FRICTION
*NODE
*NGEN, NSET=E1
*NCOPY, OLDSET=E1, NEWSET=E2, SHIFT, CHANGE=20
*NFILL, NSET=BOT
E1,E2,2,10
*NCOPY, OLDSET=BOT, NEWSET=TOP, SHIFT, CHANGE=200
*NFILL, NSET=BALL
BOT,TOP,2,100
*NODE
*NGEN, NSET=S1
*NCOPY, OLDSET=S1, NEWSET=S2, SHIFT, CHANGE=20
*NFILL, NSET=SLI_BOT
S1,S2,2,10
*NCOPY, OLDSET=SLI_BOT, NEWSET=SLI_TOP, SHIFT, CHANGE=200
*NFILL, NSET=SALL
SLI_BOT,SLI_TOP,2,100
*NSET, NSET=BC1
*NSET, NSET=NALL
BALL, SALL
*NMAP, NSET=NALL, TYPE=RECTANGULAR
*TRANSFORM, NSET=NALL
*ELEMENT, TYPE=C3D10M
*ELGEN, ELSET=BLOCK
*ELGEN
*ELSET, ELSET=SLIDER, GEN
*ELSET, ELSET=EALL
SLIDER, BLOCK
*SOLID SECTION, ELSET=EALL, MATERIAL=MAT
*MATERIAL, NAME=MAT
*ELASTIC
30.0E6, 0.3
*ELSET, ELSET=BTOP,GEN
*ELSET, ELSET=SBOT
*surface, NAME=SL1
SBOT, S1
*surface, NAME=MA1
BTOP, S3
*CONTACT PAIR, INTERACTION=INT, TYPE=SURFACE TO SURFACE
SL1, MA1
*SURFACE INTERACTION, NAME=INT
*BOUNDARY
BC1,1
BOT,2,3
SLI_TOP,3
*STEP, NLGEOM, INC=100, UNSYMM=YES
 FIRST COMPRESS
*STATIC,DIRECT
0.67,1.0
*CONTROLS, PARAMETER=FIELD
1.0E-6,
*BOUNDARY
SLI_TOP,1
SLI_TOP,2,2,-.15
*EL PRINT, F=0
*NODE PRINT, F=0
*EL FILE,FREQ=5
S,E
*NODE FILE,FREQ=5
U,RF
*CONTACT FILE, MASTER=MA1
CSTRESS,CDISP
CAREA,
CFN,CFS
CMN,CMS
CFT,CMT
XN,XS,XT
*OUTPUT,FIELD
*ELEMENT OUTPUT, VARIABLE=PRESELECT
*NODE OUTPUT, VARIABLE=PRESELECT
*END STEP
*STEP, NLGEOM, INC=100, UNSYMM=YES
 SLIDE ACROSS TOP - ZERO FRICTION
*STATIC
0.1,1.0
*BOUNDARY
SLI_TOP,2,2,-.15
SLI_TOP,1,1,4.
*END STEP