*HEADING
 Substructure recovery with *TRANSFORM
 Uses substructure generation file psuptrn3_gen.inp
*NODE,NSET=RDOF
11,
12,1.,
13,1.,1.
14,0.,1.
19,0.,0.
*NSET,NSET=NTRANS
12,13
*TRANSFORM,TYPE=R,NSET=NTRANS
0.7071,0.7071,0.,-0.7071,0.7071,0.
*ELEMENT,TYPE=Z101,ELSET=EU1,FILE=psuptrn3_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,.1
12,2,2,-.1
13,1,1,.1
13,2,2,-.1
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