*HEADING
 TEST SUBSTRUCTURE TRANSFORMATION FOR PLANE STRAIN
 PADDED WITH SPACES TO TEST 132 CHARACTER LIMIT
 USES SUBSTRUCTURE GENERATION FILE psupsol1or_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=psupsol1or_gen
1001, 1,3,5
*SUBSTRUCTURE PROPERTY,ELSET=SUP1

0., 0., 0.,   0., 0., 1.,  -30.
*ELEMENT,TYPE=CPE4
2001,1,3, 43, 41
*ELGEN,ELSET=SOLID1
2001 , 2, 2, 1, 5 , 40 ,10
*ELSET,ELSET=PR
2041, 
*SOLID SECTION,ELSET=SOLID1,MATERIAL=MAT1,ORIENTATION=ZERO
1.0, 
*MATERIAL,NAME=MAT1
*ELASTIC
2.1E11, 0.3
*ORIENTATION,NAME=ZERO
1.,0.,0.,0.,1.,0.
*STEP,PERTURBATION
*STATIC
*RESTART,                                                                               WRITE
*DLOAD
2041,P3, 200.
2042,P3, 200.
*SLOAD,OP=MOD
1001,S1, 2.
*BOUNDARY
A2, 1,2
*NODE FILE,NSET=PR
U,RF ,COORD
*EL FILE,ELSET=PR,DIRECTIONS=YES
E,S ,COORD
*NODE PRINT,NSET=PR,SUM=NO
U,RF ,
COORD,
*EL PRINT,ELSET=PR,SUM=NO
E,
S,
COORD,
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER=1001
*OUTPUT,FIELD,VAR=PRESELECT
*NODE FILE,NSET=PR
U,RF
COORD,
*EL FILE,ELSET=PR,DIRECTIONS=YES
E,S,COORD
*NODE PRINT,NSET=PR,SUM=NO
U,RF
COORD, 
*EL PRINT,ELSET=PR,SUM=NO
E,
S,
COORD,
*SUBSTRUCTURE PATH,LEAVE
*END STEP