*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 DOFs;
Uses substructure generation files psupsol1mi_gen3.inp
***
** Rotate the Structure , Apply loads (Test *Transform)
** Apply Bounday Conditions (Test *MPC)
****
**
*SYSTEM
*NODE
*NGEN,NSET=A
*NGEN,NSET=B
*NSET,NSET=PR
A,B
*NFILL
A,B, 10, 20
*** Dummy element for MPC *********
***
*ELEMENT,TYPE=MASS, ELSET=MA
*MASS,ELSET=MA
1,
***ELEMENT,TYPE=MASS, ELSET=MA
**1,1
***MASS,ELSET=MA
**1,
****
****
*ELEMENT,TYPE=Z3,ELSET=SUP6,FILE=psupsol1mi_gen3
*SUBSTRUCTURE PROPERTY,ELSET=SUP6
*NSET,NSET=Loadp
*TRANSFORM,NSET=Loadp
*MPC
TIE,5,999
*EQUATION
*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
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER=100
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER=10
*OUTPUT,FIELD,VAR=PRESELECT
*NODEPRINT,GLOBAL=YES
U,RF,
COORD,
*EL PRINT
E,S
COORD,
*SUBSTRUCTURE PATH,LEAVE,ENTER=20
*OUTPUT,FIELD,VAR=PRESELECT
*NODEPRINT,GLOBAL=YES
U,RF
COORD,
*EL PRINT
E,S,
COORD,
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,LEAVE,ENTER=200
*OUTPUT,FIELD,VAR=PRESELECT
*SUBSTRUCTURE PATH,ENTER=10
*OUTPUT,FIELD,VAR=PRESELECT
*NODEPRINT,GLOBAL=YES
U,RF,
COORD,
*EL PRINT
E,S,
COORD,
*SUBSTRUCTURE PATH,LEAVE,ENTER=20
*OUTPUT,FIELD,VAR=PRESELECT
*NODEPRINT,GLOBAL=YES
U,RF,
COORD,
*EL PRINT
E,S,
COORD,
*SUBSTRUCTURE PATH,LEAVE
*SUBSTRUCTURE PATH,LEAVE,ENTER=300
*OUTPUT,FIELD,VAR=PRESELECT
*NODEPRINT,GLOBAL=YES
U,RF
COORD,
*EL PRINT
E,S,
COORD,
*SUBSTRUCTURE PATH,LEAVE
*END STEP