*HEADING
 SUBSTRUCTURE RECOVERY WITH *TRANSFORM
 FILE SIMILAR TO PSUPTRN1 EXCEPT THAT 
 A CYLINDRICAL SYSTEM IS USED HERE.
 USES SUBSTRUCTURE GENERATION FILE psuptrn2_gen.inp
*NODE,NSET=RDOF
11,
12,1.,
13,1.,1.
14,0.,1.
*NSET,NSET=NTRANS1
12, 
*NSET,NSET=NTRANS2
13, 
*TRANSFORM,TYPE=C,NSET=NTRANS1
0.,0.,0.,0.,0.,1.
*TRANSFORM,TYPE=C,NSET=NTRANS2
0.,1.,0.,0.,1.,1.
*ELEMENT,TYPE=Z101,ELSET=EU1,FILE=psuptrn2_gen
101,11,12,13,14
*SUBSTRUCTURE PROPERTY, ELSET=EU1
0.0, 0.0, 0.0
*STEP
*STATIC
*BOUNDARY
11,1,2
12,1,1,.14142
13,1,1,.14142
14,1,1
*NODE PRINT
U,RF
*NODE FILE,GLOBAL=NO
U,RF
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER ELEMENT=101
*OUTPUT,FIELD,VAR=PRESELECT
*ENERGY PRINT
*EL PRINT
E,S
*EL FILE
E,S
*NODE PRINT
U,RF
*NODE FILE
U,RF
*SUBSTRUCTURE PATH, LEAVE
*END STEP