$ GET EXTERNAL SUPERELEMENT DATA BASE
ASSIGN MASTER='alter2g1.MASTER'
RESTART version=2,keep $ FROM CBAR3G (NORMAL MODES)
$ MODAL, TRANSIENT USING EXTERNAL SUPERELEMENT
SOL 112
TIME 10
DIAG 8,15,53,56
$
$ ATTACH MATRICES FOR EXTERNAL SUPERELEMENT 10, GET SYSTEM MODES
$     AND RUN MODAL TRANSIENT
$
INCLUDE 'alter9ga.v707' 
CEND
TITLE = MODAL TRANSIENT FOR SUPERELEMENT MODEL                 CBAR9G
$
$SET 99 = 0,10
$SELG = 99
$SELR = 99
   LOADSET = 10
disp = all
SUBCASE = 1 $ IDENTICAL TO CBAR2d
SUPER = 10
METHOD = 1
$
SET 999 = 5
OLOAD = 999
PARAM,SEBFORC,1
$
K2GG=KAAEXT
M2GG=MAAEXT
B2GG = BAAEXT  $ DAMPING IF USED
$SPC = 1
SUBCASE 5
   LABEL = RES STR - SOLVE PROBLEM FOR transient solution
   SDAMP   = 100
   TSTEP   = 5
   SPC = 1
   DLOAD = 10
   METHOD = 1
   DISP = ALL
$
$  PLOT RESULTS
$
OUTPUT(XYPLOT)
 XAXIS = YES
 YAXIS = YES
 XGRID = YES
 YGRID = YES
 XTITLE = TIME
 YTITLE =    Z  D I S P  O F  G R I D  5
XYPLOT DISP /5(T3)
SEPLOT 10
 XAXIS = YES
 YAXIS = YES
 XGRID = YES
 YGRID = YES
 XTITLE = TIME
 YTITLE =    Z  D I S P  O F  G R I D  8
XYPLOT DISP /8(T3)
BEGIN BULK
param,post,0
$            SID   DAREA   DELAY   TYPE      T1      T2      F    PHASE
TLOAD2        10      10                      0.      5.     10.        +T12
$             C        B
+T12         -1.
$            SID    N(1)   DT(1)   NO(1)
TSTEP          5     600    .001       5
$
DAREA,10,2,3,.0001
$
TABDMP1      100    CRIT                                                +TDAMP
+TDAMP        0.    .01    200.     .01    ENDT
$
$ FORCE CARD AND LSEQ TO TELL NASTRAN TO GENERATE LOADS
$    FOR "EXTERNAL" SUPERELEMENT 10
$
FORCE,12,8,,2.,0.,0.,-1.
$
LSEQ,10,10,12
$
ENDDATA