*HEADING
 EARTHQUAKE ANALYSIS (S8R) VIA MULTIPLE BASE MOTIONS
 MODAL DYNAMICS MODEL WITH PRIMARY BASE AND SECONDARY BASE (NODE21)
*NODE
*NSET,NSET=ENDS
*NSET,NSET=NODE11
*NSET,NSET=NOUT
*NGEN,NSET=NALL
*ELSET,ELSET=PR
*ELEMENT,TYPE=S8R
*ELGEN,ELSET=EALL
*MATERIAL,NAME=A1
*ELASTIC
30.E6,
*DENSITY
 .000728,
*SHELL SECTION,MATERIAL=A1,ELSET=EALL
2.,
*BOUNDARY
NALL,YSYMM
  1, 1
  1, 3
  1, 5
101, 1
101, 3
101, 5
201, 1
201, 3
** THIS INPUT ASSUMES THAT bmk/multibasemotion_quake.inp
** HAS BEEN COPIED TO QUAKE01.AMP
*AMPLITUDE,VALUE=RELATIVE,INPUT=QUAKE01.AMP,NAME=EQ
*RESTART,WRITE,FREQUENCY=25
*STEP
*FREQUENCY,EIGENSOLVER=LANCZOS, SIM=NO
10,,,-1000.
*BOUNDARY,BASE NAME=NODE21
 21,3
121,3
221,3
*EL PRINT,FREQUENCY=0
*NODE PRINT
U,
*MODAL FILE
*OUTPUT,FIELD,FREQ=0
*OUTPUT,HISTORY,FREQ=0
*END STEP
*STEP
 EARTHQUAKE INPUT
*MODAL DYNAMIC
.01,2.0
*SELECT EIGENMODES,GENERATE
*BASE MOTION,DOF=3,AMPLITUDE=EQ,SCALE=386.09
*BASE MOTION,DOF=3,AMPLITUDE=EQ,SCALE=386.09,BASE NAME=NODE21
*PRINT,FREQUENCY=50
*EL PRINT,ELSET=PR,FREQUENCY=50
S,E
*NODE PRINT,FREQUENCY=100
U,
TU,
V,
A,
*MODAL PRINT,FREQUENCY=50
GU,GV,GA,
BM,
*NODE FILE,NSET=NODE11,FREQ=5
U,TU,
*NODE FILE,NSET=NOUT,FREQUENCY=50
U,V,TU,TV
*OUTPUT,HIST,FREQ=50
*NODE OUTPUT,NSET=NOUT
U,V,TU,TV
*OUTPUT,HIST,FREQ=5
*NODE OUTPUT,NSET=NODE11
U,TU
*OUTPUT,FIELD,FREQ=50
*NODE OUTPUT
U,
*END STEP