*HEADING
 TEST SUBSTRUCTURE TRANSFORMATION FOR BEAM
 USES SUBSTRUCTURE GENERATION FILE psupbm2_gen.inp
*SYSTEM
0., 0., 0.,   0.866025, -0.5, 0.,
0.5, 0.866025, 0.
*NODE
1,
201,    , 10.
999, 10.,  0.
*NGEN
1,201,20
*NSET,NSET=PR
1,201
*ELEMENT,TYPE=B31
2001,1,21,999
*ELGEN,ELSET=BEAM1
2001, 10, 20, 20
*ELSET,ELSET=PR
2041,
*BEAM SECTION,SECT=RECT,ELSET=BEAM1,MATERIAL=MAT1
1.0,1.0
*MATERIAL,NAME=MAT1
*ELASTIC
2.1E11, 0.3
*ELEMENT,TYPE=Z01,ELSET=SUP1,FILE=psupbm2_gen
1001, 1
*SUBSTRUCTURE PROPERTY,ELSET=SUP1

0., 0., 0.,   0., 0., 1.,  -30.
*STEP,PERTURBATION
*STATIC
*RESTART,WRITE

*CLOAD
201 , 1, -100.
201 , 2, -173.205
*SLOAD
1001,S1, 1.
*BOUNDARY
1, 1,6
*NODE FILE,NSET=PR
U,RF
*EL FILE,ELSET=PR,DIRECTIONS=YES
E,S,
COORD, 
SF,
IVOL,
SVOL,
EVOL,
*NODE PRINT,NSET=PR,SUM=NO
U,
RF,
*EL PRINT,ELSET=PR,SUM=NO
E,
S,
COORD,
SF,
*EL PRINT,ELSET=PR,TOTALS=YES
1,2,3,4,5
IVOL,
SVOL,
EVOL,
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER=1001
*OUTPUT,FIELD,VAR=PRESELECT
*NODE FILE,NSET=PR
U,RF
*EL FILE,ELSET=PR,DIRECTIONS=YES
E,S,
COORD, 
SF,
IVOL,
SVOL,
EVOL,
*NODE PRINT,NSET=PR,SUM=NO
U,
RF,
*EL PRINT,ELSET=PR,SUM=NO
E,
S,
COORD,
SF,
*EL PRINT,ELSET=PR,TOTALS=YES
1,2,3,4,5
IVOL,
SVOL,
EVOL,
*SUBSTRUCTURE PATH,LEAVE
*END STEP