*HEADING
SIMPLE  TESTS, FINTE SLIDING, CGAX6                      :--
**RESTART,WRITE, FREQ=30
*NODE
*NGEN
*NSET, NSET=LT_N
*NSET, NSET=RT_N
*ELEMENT,TYPE=CGAX6,ELSET=LEFTEL
*ELEMENT,TYPE=CGAX6,ELSET=RTEL
*ELSET,ELSET=SOLID
LEFTEL, RTEL
*SOLID SECTION,ELSET=SOLID,MATERIAL=SOLMAT
*MATERIAL,NAME=SOLMAT
*ELASTIC
30.E6,0.30
*SURFACE INTERACTION,NAME=SLIDE
 1.,
*FRICTION, ANISOTROPIC
0.1,0.2
*surface,NAME=LEFT
1,S2
*surface,NAME=RT
4,S3
6,S3
*CONTACT PAIR,INTERACTION=SLIDE,TYPE=SURFACE
LEFT,RT
*BOUNDARY
LT_N,1,2
LT_N,5,5
RT_N,1,2
RT_N,5,5
**
**    step 1  :  interference fit, (radial intereference)
**
*STEP, INC=20, NLGEOM
           SHRINK FIT
*STATIC
0.1,1.,0.1,0.2
*CONTACT INTERFERENCE,SHRINK
LEFT, RT
*NODE PRINT, F=0
*EL PRINT, F=0
*OUTPUT,FIELD,FREQ=0
*ELEMENT OUTPUT
*OUTPUT,FIELD,FREQ=0
*NODE OUTPUT
*OUTPUT,FIELD,FREQ=50
*CONTACT OUTPUT,VARIABLE=PRESELECT,SLAVE=LEFT,MASTER=RT
*CONTACT PRINT, SLAVE=LEFT , MASTER=RT, F=50
*ENDSTEP
**
**     step 2 : linear perturbation (about shrink fit); sliding upwards
**
*STEP,PERT,  NLGEOM
 PERT :- SLIDING UPWARDS
*STATIC
*BOUNDARY, OP=MOD
RT_N,2,,0.1
*NODE PRINT, F=0
*EL PRINT, F=0
*OUTPUT,FIELD,FREQ=0
*ELEMENT OUTPUT
*OUTPUT,FIELD,FREQ=0
*NODE OUTPUT
*OUTPUT,FIELD,FREQ=50
*CONTACT OUTPUT,VARIABLE=PRESELECT,SLAVE=LEFT,MASTER=RT
*CONTACT PRINT, SLAVE=LEFT , MASTER=RT, F=50
*ENDSTEP
**
**     step 3 : linear perturbation (about shrink fit); twist
**
*STEP, PERT, NLGEOM
  PERT: TWISTING
*STATIC
*BOUNDARY, OP=MOD
RT_N,5,,0.1
*OUTPUT,FIELD,FREQ=50
*CONTACT OUTPUT,VARIABLE=PRESELECT,SLAVE=LEFT,MASTER=RT
*CONTACT PRINT, SLAVE=LEFT , MASTER=RT, F=50
*ENDSTEP
**
**     step 4: UNSYMM, linear perturbation, slide and twist
** 	          with shrink-fit base state.
**
*STEP,  PERT, NLGEOM, UNSYMM=YES
*STATIC
*BOUNDARY
RT_N,5,,0.1
RT_N,2,,0.1
*OUTPUT,FIELD,FREQ=50
*CONTACT OUTPUT,VARIABLE=PRESELECT,SLAVE=LEFT,MASTER=RT
*CONTACT PRINT, SLAVE=LEFT , MASTER=RT, F=50
*ENDSTEP
**
**       step 5: NLGEOM, UNSYMM, twist and sliding
**
*STEP, NLGEOM, UNSYMM=YES
*STATIC
0.1,1.0
*CONTROLS,PARAMETERS=FIELD
1.0E-6,
*BOUNDARY
RT_N,2,,0.1
RT_N,5,,0.1
*ENDSTEP