/NOPR   ! Suppress printing of UNDO process 
/PMACRO ! Echo following commands to log    
FINISH  ! Make sure we are at BEGIN level   
/CLEAR,NOSTART  ! Clear model since no SAVE found    
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
/PREP7  
smrt,off
ANTYPE,STATIC            ! STATIC ANALYSIS  
NLGEOM,ON                ! LARGE DEFLECTION OPTION  
LUMPM,ON
ET,1,SOLID98,2            ! LARGE DEFLECTION IS INCLUDED
ET,2,TARGE170                ! 3-D TARGET ELEMENTS  
ET,3,CONTA175        ! 3-D CONTACT ELEMENTS 
MP,MU,3,0   
MP,EMIS,3,0 
R,3,0.1001,,1.0,0.1,0,  !R1, R2, FKN, FTOLN, ICONT, PINB, 
RMORE,,,1.0E24,0.1,1.0, !PMAX, PMIN, TAUMAX, CNOF, FKOP, FKT,
RMORE,0.0,0,1.0,,1.0,0.5 !COHE, TCC, FHTG, SBCT, RDVF, FWGT,
RMORE,0,1.0,1.0,0.0,,1.0 !ECC, FHEG, FACT, DC, SLTO, TNOP, 
KEYOPT,3,5,0
KEYOPT,3,9,0
KEYOPT,3,10,1   
KEYOPT,3,11,0   
KEYOPT,3,12,0     
ET,4,COMBIN14   
R,4,10  
MP,EX,1,30000          ! SMALLER CYLINDER PROPERTIES
MP,NUXY,1,0.25  
*SET,RAD1,5 
*SET,RAD11,3
*SET,RAD2,4 
*SET,RAD22,2
*SET,RAD3,6 
*SET,RAD33,4
*SET,SHIFT,1
*SET,GAPX,18
*SET,GAPY,16
CYL4, 0     ,0,                RAD1, 230, RAD11, 310, 2 
CYL4, 0     ,-RAD1-RAD2-SHIFT, RAD2, 0  , RAD22, 360, 2 
CYL4, GAPX/2,-GAPY           , RAD3, 120, RAD33, 240, 2 
VSYMM,X,3, , , ,0,0 
!   
ESIZE,0.8   
VMESH,ALL   
!   
ASEL,S,AREA,,3  
NSLA,,1                
CM,CYL1,NODE         
REAL,1  
TYPE,3  
ESURF                
!   
ASEL,S,AREA,,9,10   
NSLA,,1              
CM,CYL2,NODE          
REAL,1  
TYPE,2  
ESURF                  
!   
ASEL,S,AREA,,15 
NSLA,,1                
CM,CYL3,NODE          
REAL,1  
TYPE,3  
ESURF                 
!   
ASEL,S,AREA,,21 
NSLA,,1               
CM,CYL4,NODE          
REAL,1  
TYPE,3  
ESURF                
TYPE,4  
REAL,4  
e,5155,2570 
e,2570,851  
e,2570,4172 
!   
ASEL,S,loc,z,0  
ASEL,a,loc,z,2  
NSLA,,1               
DSYM,SYMM,Z 
!   
ASEL,S,AREA,,4  
NSLA,,1              
d,all,ux,0,,,,UZ
CP,NEXT,UY,ALL  
*GET,NC,NODE,,NUM,MIN  ! GET LOWEST NODE NUMBER (MASTER)
!   
ASEL,S,AREA,,16,22,6
NSLA,,1 
d,all,all   
!ASEL,S,area,,12
!NSLA,,1
!D,all,uz,0 
!D,all,all  
!   
NSEL,ALL
FINISH  
/SOL
solcontrol,on   
outpr,all   
OUTRES,all,all  
DELTIM,0.1, 0.002, 0.1   
NEQIT,150
!NSUBST,5,10,2  
D,NC,UY,-6     ! APPLY SMALL DISPLACEMENT TO ENGAGE CONTACT 
SOLVE                  ! SOLVE FIRST LOAD STEP  
FINISH  
! 
)/GOP    ! Resume printing after UNDO process   
)! We suggest a save at this point