*HEADING
	2-D ELEMENT IN CONTACT WITH A 2-D RIGID ELEMENT.
        SUBSTRUCTURE GENERATION FILE FOR psupcontact.inp
*NODE
1,
2,1.,
3,1.,1,
4,,1.
11,-2.,1.
12,5.,1.
13,2.,3.
*NSET,NSET=HANDLE
1, 2
*ELEMENT,TYPE=CPE4,ELSET=BOT
1,1,2,3,4
*ELEMENT,TYPE=R2D2,ELSET=TOP
11,12,11
*RIGID BODY,ELSET=TOP,REF NODE=13
*SOLID SECTION,ELSET=BOT,MATERIAL=MAT
*MATERIAL,NAME=MAT
*ELASTIC
3.E7,0.0
*surface,NAME=TOPS
TOP,SPOS
*surface,NAME=SLAVE
BOT,S3
*SURFACE INTERACTION,NAME=ISLS
*FRICTION
0.1
*CONTACT PAIR,INTERACTION=ISLS, SMALL SLIDING
SLAVE,TOPS
*BOUNDARY
13,1,1
13,6,6
**
** bring rigid surface into contact with block
**
*STEP,INC=50,NLGEOM
*STATIC
0.1,1.0
*BOUNDARY
13,2,2,-0.1
HANDLE,1,2
*EL PRINT
S
*NODE PRINT
U,RF
*END STEP
**
** slide block to generate frictional resistance
**
*STEP,INC=50,NLGEOM
*STATIC
0.1,1.0
*BOUNDARY,OP=NEW
13,1,1
13,2,2,-0.1
13,6,6
HANDLE,1,1,0.3
HANDLE,2,2
*EL PRINT
S
*NODE PRINT
U,RF
*END STEP
**
** generate substructure
**
*STEP
*SUBSTRUCTURE GENERATE,TYPE=Z1,OVERWRITE
*RETAINED NODAL DOFS
HANDLE,
*BOUNDARY,OP=NEW
13,1,1
13,2,2,-0.1
13,6,6
*END STEP