*HEADING
Overhead Hoist Problem: To test translation, rotation &
Mirroring of substructure in a multilevel substructure 
analysis
Uses first and second level generation files
psuphoi1_gen1.inp and psuphoi1_gen2.inp
*RESTART,WRITE
*** Create actual Structure by Mirrroring Z2 and translating Z1
*NODE
301,0.0,0.0
302,1.0,0.0
303,2.0,0.0
304,0.5,0.866
305,1.5,0.866
*ELEMENT,TYPE=Z2,ELSET=SUPU4,FILE=psuphoi1_gen2
201,301,302,304
*ELEMENT,TYPE=Z2,ELSET=SUPU5,FILE=psuphoi1_gen2
202,303,302,305
*ELEMENT,TYPE=Z1,ELSET=SUPU6,FILE=psuphoi1_gen1
203,304,305
*SUBSTRUCTURE PROPERTY,ELSET=SUPU4
*SUBSTRUCTURE PROPERTY,ELSET=SUPU5


1.,0. ,0.,1.,0.,1.
1.,1.0,1.0
*SUBSTRUCTURE PROPERTY,ELSET=SUPU6
0.5,0.866
*STEP
10 Kn Central Load
*STATIC
*BOUNDARY
301,1,3,0
303,2,,0
*CLOAD
302,2,-10.E3
*NODE PRINT
U,RF
*NODE FILE
U,RF
*EL PRINT
S,E
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER=201
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER=101
*OUTPUT,FIELD,VAR=PRESELECT
*NODE PRINT,SUM=NO
U,RF
*NODE FILE
U,RF
*EL PRINT
S,E
*EL FILE
S,E
*SUBSTRUCTURE PATH,LEAVE,ENTER=102
*OUTPUT,FIELD,VAR=PRESELECT
*NODE PRINT,SUM=NO
U,RF
*NODE FILE
U,RF
*EL PRINT
S,E
*EL FILE
S,E
*SUBSTRUCTURE PATH,LEAVE,ENTER=103
*OUTPUT,FIELD,VAR=PRESELECT
*NODE PRINT,SUM=NO
U,RF
*NODE FILE
U,RF
*EL FILE
S,E
*EL PRINT
S,E
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,ENTER=202
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER=101
*OUTPUT,FIELD,VAR=PRESELECT
*NODE PRINT,SUM=NO
U,RF
*NODE FILE
U,RF
*EL PRINT
S,E
*EL FILE
S,E
*SUBSTRUCTURE PATH,LEAVE,ENTER=102
*OUTPUT,FIELD,VAR=PRESELECT
*NODE PRINT,SUM=NO
U,RF
*NODE FILE
U,RF
*EL PRINT
S,E
*EL FILE
S,E
*SUBSTRUCTURE PATH,LEAVE,ENTER=103
*OUTPUT,FIELD,VAR=PRESELECT
*NODE PRINT,SUM=NO
U,RF
*NODE FILE
U,RF
*EL FILE
S,E
*EL PRINT
S,E
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,LEAVE,ENTER=203
*OUTPUT,FIELD,VAR=PRESELECT
*NODE PRINT,SUM=NO
U,RF
*NODE FILE
U,RF
*EL PRINT
S,E
*EL FILE
S,E
*SUBSTRUCTURE PATH,LEAVE
*END STEP