$ FILE CBAR2G.DAT - READ IN MATRICES FROM RUN CBAR1G AS A SUPERELEMNT
assign master ='alter2g1.MASTER', delete
assign dball='alter2g1.DBALL', delete
$
$ CREATE DATA BASE FOR USE AS EXTERNAL SUPERELEMENT
$ IN SPACE STATION RUN
SOL 103
TIME 10
diag 8,15,53,56
INCLUDE 'alter2ga.v707'  $ DMAP ALTER
CEND
TITLE = READ AND STORE MATRICES IN DATA BASE                   CBAR2G
$
SEALL = 10 $ TELL NASTRAN TO PROCESS ONLY SE 10
$
SUBCASE = 1
SUPER = 10
$
$ TELL PROGRAM TO USE MATRICES FROM FIRST RUN
$
$
K2GG = KAAEXT
M2GG = MAAEXT
$B2GG = BAAEXT $ DAMPING IF CREATED
$
$ FOLLOWING ENTRY ADDED TO FLAG CMS OF SE 10
$
METHOD = 1
$
BEGIN BULK
param,grdpnt,0
$
$ EIGENVALUE METHOD ENTRY FOR EXTERNAL SE
$
EIGR,1,aGIV,0.,100.,,10
$
$ USE SESET AND SEQSET TO DEFINE S.E. 10
$
$ SESET - TO POINT TO U2 DOF FROM INITIAL RUN
$
$ SEQSET - TO DEFINE DOF TO USE FOR COMPONENT MODES
$
SPOINT,1001,THRU,1012
$
SESET,10,8,9,10
$
SEQSET1,10,0,1001,THRU,1012
$
$ DEFINE GRID(S) USED IN U2 SET DURING CREATION
$
GRID,8,,70.,0.,0.
GRID,9,,80.,0.,0.
GRID,10,,90.,0.,0.
$
$ PLOTELS FOR PLOTTING AND FOR S.E. 8 EXT GRID DEFN
$   THIS OR SOME OTHER ELEMENTS MUST BE USED TO DEFINE THE
$   'FAKE' SE CONNECTIVITY FOR PLOTS
$   (NOTE: IF ELEMENTS ARE NOT USED, THEN CSUPEXT MUST BE USED FOR
$          EXTERIOR {ATTACHMENT} GRID POINTS)
$
$
PLOTEL,100,5,8
PLOTEL,101,8,9
PLOTEL,102,9,10
$
$ ADD GRIDS TO CONNECT EXTERNAL SUPERELEMENT TO
$
$ MODEL OF 'RESIDUAL STRUCTURE ONLY'
$
GRID,1,,0.,0.,0.
=,*(1),=,*(10.),==
=(3)
GRID,11,,0.,1.,0.,,123456
CBAR,1,1,1,2,11
=,*(1),=,*(1),*(1),==
=(2)
PBAR,1,1,1.,10.,10.,10.
$PARAM,AUTOSPC,YES
MAT1,1,30.+6,,,.283
SPC1,1,123456,1
$
$ DMIG FROM CBAR1G - after adding NCOL onto PHIXT and PHIXQ
$
INCLUDE 'alter1g1.pch'
ENDDATA