*HEADING
 FRICTIONAL CONTACT BETWEEN A DEFORMABLE BLOCKOF CPE3 ELEMENTS AND 
 AN ANALYTICAL RIGID SURFACE WITH COULOMB FRICTION MODEL
 TEST THE UTILITY ROUTINE VGETPARTINFO
*PART,NAME=DEFORMABLE
   **
   ** deformable element
   **
   *NODE,NSET=DELEM
    101,-5.,0.0
    102, 0.0,0.0
    103, 0.0,1.
    104,-5.,1.
   *ELEMENT,TYPE=CPE3,ELSET=DELEM
    101,101,102,103
    102,101,103,104
   *SOLID SECTION, ELSET=DELEM, MATERIAL=STUFF
    1., 
   *SURFACE,TYPE=ELEMENT,NAME=DEFORM
    DELEM, 
   *NSET,NSET=QA_TESTN
    DELEM,
*END PART
*PART,NAME=RIGIDPART
   *NODE,NSET=RMASS
    201,5.,-1.
   *ELEMENT,TYPE=MASS,ELSET=RMASS
    200,201
   *SURFACE, TYPE=SEGMENT, NAME=RSURF
    START, -7,  0.000
    LINE,  5.,  0.000
*END PART
**
** define assembly
**
*ASSEMBLY, NAME=A1
   *INSTANCE, NAME=BLOCK, PART=DEFORMABLE
   *END INSTANCE
   *INSTANCE, NAME=RIGID, PART=RIGIDPART
   *END INSTANCE
   *RIGID BODY,REF NODE=RIGID.201, ANALYTICAL SURFACE=RIGID.RSURF
*END ASSEMBLY
*MATERIAL, NAME=STUFF
*ELASTIC
 3.E7,0.33
*DENSITY
 7.3E-4, 
*MASS,ELSET=A1.RIGID.RMASS
 1.0, 
*NSET,NSET=NLOAD
 A1.BLOCK.104,A1.BLOCK.103
*BOUNDARY
 A1.RIGID.201,1,2
 A1.RIGID.201,6,6
*INITIAL CONDITIONS,TYPE=VELOCITY
 A1.BLOCK.DELEM,1,200.0
 A1.BLOCK.DELEM,2,0.0
*INITIAL CONDITIONS,TYPE=STRESS
 A1.BLOCK.101,0.0,-2000.0
 A1.BLOCK.102,0.0,-2000.0
**
** 
**
*STEP
*DYNAMIC,EXPLICIT
 ,0.001
**
** Analytical rigid surface 
**
*SURFACE INTERACTION,NAME=RSUR_PM
*FRICTION,USER,PROPERTIES=1
 0.15, 
*CONTACT PAIR,INTERACTION=RSUR_PM
 A1.BLOCK.DEFORM,A1.RIGID.RSURF
*DLOAD
 A1.BLOCK.102,P2,2000.0
**
**  Some typical output requests.
**
*RESTART,TIMEMARKS=NO, WRITE, NUMBER=4
*OUTPUT,FIELD,NUM=1
*NODE OUTPUT,NSET=A1.BLOCK.QA_TESTN
U,
*OUTPUT,FIELD,NUM=10
*NODE OUTPUT
U,
*ELEMENT OUTPUT
S,LE
**
*END STEP