$ GET EXTERNAL SUPERELEMENT DATA BASE
ASSIGN MASTER='alter2g1.MASTER'
RESTART version=2,keep $ FROM CBAR3G (NORMAL MODES)
$ MODAL, FREQ RESP USING EXTERNAL SUPERELEMENT
SOL 111
TIME 10
DIAG 8,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
echo=none
$disp = all
disp(phase, sort2) = 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
   freq = 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
rload1,10,10,,,100
tabled1,100
,0.,1.,1000.,0.,endt
$            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)
freq4,5,1.,10.,.01,5
$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