*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
*NSET,NSET=NTRANS1
*NSET,NSET=NTRANS2
*TRANSFORM,TYPE=S,NSET=NTRANS1
*TRANSFORM,TYPE=S,NSET=NTRANS2
*ELEMENT,TYPE=Z101,ELSET=EU1,FILE=psuptrn4_gen
*SUBSTRUCTURE PROPERTY, ELSET=EU1
*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
*ENERGY PRINT
*EL PRINT
E,S
*EL FILE
E,S
*NODE PRINT
U,
RF,
*NODE FILE
U,RF
*SUBSTRUCTURE PATH, LEAVE
*END STEP