*HEADING
 SUBSTRUCTURE RECOVERY WITH *TRANSFORM
 FILE SIMILAR TO PSUPTRN1 EXCEPT THAT 
 A SPHERICAL SYSTEM IS USED HERE.
 USES SUBSTRUCTURE GENERATION FILE psuptrn4_gen.inp
*NODE,NSET=RDOF
11,
12,1.,
13,1.,1.
14,0.,1.
19,0.,0.,
*NSET,NSET=NTRANS1
12, 
*NSET,NSET=NTRANS2
13, 
*TRANSFORM,TYPE=S,NSET=NTRANS1
0.,0.,0.,0.,0.,1.
*TRANSFORM,TYPE=S,NSET=NTRANS2
0.,1.,0.,0.,1.,1.
*ELEMENT,TYPE=Z101,ELSET=EU1,FILE=psuptrn4_gen
101,11,12,13,14,19
*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
19,3,5
*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