$ ID CBAR, TEST PROBLEM FOR EXTERNAL SUPERELEMENTS
ID CBAR, GENEL2
SOL 112
diag 8,15
INCLUDE 'SSSALTERDIR:genela.alt'
CEND
TITLE = MODAL TRANSIENT FOR SUPERELEMENT MODEL                 GENEL2
LABEL = SOLVE USING SUPERELEMENTS
SEALL = ALL
  SDAMP   = 100
  TSTEP   = 5
$
$  SET DEFAULT LOADSET FOR ALL S.E.
$
set 99 = 9,10
oload = 99
  LOADSET = 10
$
SPC = 1
$
SUBCASE 5
SUPER = ALL
LABEL = RES STR - SOLVE PROBLEM FOR SYSTEM MODES
DLOAD = 10
METHOD = 1
DISP(PLOT) = ALL
$
$  PLOT RESULTS
$
OUTPUT(XYPLOT)
seplot 0
 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
ytitle = A x i a l  F o r c e  I n  G E N E L
xyplot oload/10(t1)
BEGIN BULK
param,ddrmm,-1
param, sparsedr, no
SPC1,1,123456,1
$            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,.000001
$
FORCE,12,8,,2.,0.,0.,-1.
$
LSEQ,10,10,12
$
TABDMP1      100    CRIT                                                +TDAMP
+TDAMP        0.    .01    200.     .01    ENDT
EIGR,1,MGIV,0.,100.,,11
$
$ ADD MODAL COORDINATES FOR S.E. 10
$
SPOINT,1001,THRU,1010
SEQSET1,10,0,1001,THRU,1010
$
GRID,1,,0.,0.,0.
=,*(1),=,*(10.),==
=(8)
GRID,11,,0.,1.,0.,,123456
GRID,12,,0.,1.,0.,,123456
CBAR,1,1,1,2,11
=,*(1),=,*(1),*(1),==
=(2)
CBAR,5,1,5,6,12
=,*(1),=,*(1),*(1),==
=(2)
$
$ input for GENEL
$
genel,99,,9,1,10,1
,K,10.,-10.,10.
FORCE,12,10,,2.,1.,0.,0.
$ mass to get genel motion
conm2,999,10,,1.
$
$ DEFINE SUPERELEMENT
$
SESET,10,6,THRU,10
SESET,10,12
PBAR,1,1,1.,10.,10.,10.
PARAM,AUTOSPC,YES
MAT1,1,30.+6,,.3,.283
SPC1,1,123456,1
ENDDATA