*HEADING
 TEST SUBSTRUCTURE TRANSFORMATION FOR SHELL
 USES SUBSTRUCTURE GENERATION FILE psupsfl1_gen.inp
*SYSTEM
*NODE
*NGEN,NSET=A2
*NGEN,NSET=B2
*NSET,NSET=PR
A2,B2
*NFILL
A2,B2, 10, 20
*ELEMENT,TYPE=Z01,ELSET=SUP1,FILE=psupsfl1_gen
*SUBSTRUCTURE PROPERTY,ELSET=SUP1
*ELEMENT,TYPE=S4R
*ELGEN,ELSET=SHELL1
*ELSET,ELSET=PR
*SHELL SECTION,ELSET=SHELL1,MATERIAL=MAT1,ORIENTATION=MIN30
1.0,
*MATERIAL,NAME=MAT1
*ELASTIC
2.1E11, 0.3
*ORIENTATION,NAME=MIN30
*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
IVOL,
SVOL,
EVOL,
*SUBSTRUCTURE PATH,ENTER=1001
*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
IVOL,
SVOL,
EVOL,
*SUBSTRUCTURE PATH,LEAVE
*END STEP