*HEADING
Testing Substructure Translation, Mirroring
Rotation, Transform at Usage level, and 
MPC at usage level; Testing Multiple Load Cases;
Also Tests Unsorted option
Equation at usage level 
in Retained D.O.F's;
Uses substructure generation files psupsol1mi_gen3.inp
***
** Rotate the Structure , Apply loads (Test *Transform)
** Apply Bounday Conditions (Test *MPC)
****
**
*SYSTEM
0., 0., 0.,   0.866025, -0.5, 0.,
0.5, 0.866025, 0.
*NODE
1,
5,   1.
201,   , 10.
205, 1., 10.
999, 10,10
*NGEN,NSET=A
1,5
*NGEN,NSET=B
201,205
*NSET,NSET=PR
A,B
*NFILL
A,B, 10, 20
*** Dummy element for MPC *********
***
*ELEMENT,TYPE=MASS, ELSET=MA
999,999
*MASS,ELSET=MA
1,
***ELEMENT,TYPE=MASS, ELSET=MA
**1,1
***MASS,ELSET=MA
**1, 
****
****
*ELEMENT,TYPE=Z3,ELSET=SUP6,FILE=psupsol1mi_gen3
1000,1,5,201,203,205
*SUBSTRUCTURE PROPERTY,ELSET=SUP6

0., 0., 0.,   0., 0., 1.,  -30.
*NSET,NSET=Loadp
201,203,205
*TRANSFORM,NSET=Loadp
1.0,-0.5777,0.0,1.0,1.732,0.0
*MPC
TIE,5,999
*EQUATION
2,
1,2,-1,1,1,1
*STEP,PERT
*STATIC
*LOAD CASE,NAME="FIXED END"
*BOUNDARY,OP=NEW
999,1,3
1,1,1
*CLOAD,OP=NEW
201,2,50
203,2,100
205,2,50
*END LOAD CASE
*LOAD CASE,NAME="MOVABLE END"
*BOUNDARY,OP=NEW
1,1,1
999,1,1
*CLOAD,OP=NEW
201,2,-50
203,2,-100
205,2,-50
*END LOAD CASE
*NODEPRINT,GLOBAL=YES
U,RF
*EL PRINT
E,S
*SUBSTRUCTURE PATH,ENTER=1000
*SUBSTRUCTURE PATH,ENTER=100
*SUBSTRUCTURE PATH,ENTER=10
*NODEPRINT,GLOBAL=YES
U,RF,
COORD, 
*EL PRINT
E,S
COORD, 
*SUBSTRUCTURE PATH,LEAVE,ENTER=20
*NODEPRINT,GLOBAL=YES
U,RF
COORD, 
*EL PRINT
E,S, 
COORD, 
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,LEAVE,ENTER=200
*SUBSTRUCTURE PATH,ENTER=10
*NODEPRINT,GLOBAL=YES
U,RF,
COORD, 
*EL PRINT
E,S,
COORD, 
*SUBSTRUCTURE PATH,LEAVE,ENTER=20
*NODEPRINT,GLOBAL=YES
U,RF,
COORD, 
*EL PRINT
E,S,
COORD, 
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,LEAVE,ENTER=300
*NODEPRINT,GLOBAL=YES
U,RF
COORD, 
*EL PRINT
E,S,
COORD, 
*SUBSTRUCTURE PATH,LEAVE
*END STEP