*HEADING
 Substructure recovery with *TRANSFORM
 Uses substructure generation file psuptrn1_gen.inp
*NODE,NSET=RDOF
*NSET,NSET=NTRANS
*TRANSFORM,TYPE=R,NSET=NTRANS
*ELEMENT,TYPE=Z101,ELSET=EU1,FILE=psuptrn1_gen
*SUBSTRUCTURE PROPERTY, ELSET=EU1
*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
*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