*HEADING
 TEST SUBSTRUCTURE TRANSFORMATION FOR SHELL
 USES SUBSTRUCTURE GENERATION FILE psupsfl2_gen.inp
*SYSTEM
0., 0., 0.,   0.866025, -0.5, 0.,
0.5, 0.866025, 0.
*NODE
1,
5,   1.
201,   , 10.
205, 1., 10.
*NGEN,NSET=A2
1,5
*NGEN,NSET=B2
201,205
*NSET,NSET=PR
A2,B2
*NFILL
A2,B2, 10, 20
*ELEMENT,TYPE=Z01,ELSET=SUP1,FILE=psupsfl2_gen
1001, 1,3,5
*SUBSTRUCTURE PROPERTY,ELSET=SUP1

0., 0., 0.,   0., 0., 1.,  -30.
*ELEMENT,TYPE=S4R
2001,1,3, 43, 41
*ELGEN,ELSET=SHELL1
2001 , 2, 2, 1, 5 , 40 ,10
*ELSET,ELSET=PR
2041, 
*SHELL GENERAL SECTION,ELSET=SHELL1,MATERIAL=MAT1,ORIENTATION=MIN30
1.0, 
*MATERIAL,NAME=MAT1
*ELASTIC
2.1E11, 0.3
*ORIENTATION,NAME=MIN30
0.866025, -0.5, 0., 0.5, 0.866025, 0.
3,
*STEP,PERTURBATION
*STATIC
*RESTART,WRITE

*CLOAD
201 , 1, -25.
203 , 1, -50.
205 , 1, -25.
201 , 2, -43.3013
203 , 2, -86.6025
205 , 2, -43.3013
*SLOAD
1001,S1, 1.
*BOUNDARY
A2, 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,
*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