*HEADING
 EARTHQUAKE ANALYSIS  B23        
*NODE
1 ,, 300.
11, 
*NSET,NSET=ENDS
1,11
*NGEN
 1,11
*ELSET,ELSET=PR
10, 
*ELEMENT,TYPE=B23
1,1,2
*ELGEN,ELSET=EALL
1,10
*MATERIAL,NAME=A1
*ELASTIC
30.E6, 
*DENSITY
 .000728, 
*BEAM SECTION,SECTION=RECT,MATERIAL=A1,ELSET=EALL
1. , 2.
*BOUNDARY
11, 1, 6
** AMPLITUDE CURVE DATA FROM CANTILEVER_QUAKEDATA 
** THIS INPUT ASSUMES THAT CANTILEVER_QUAKEDATA.INP 
** HAS BEEN COPIED TO QUAKE.AMP 
*AMPLITUDE,VALUE=RELATIVE,INPUT=QUAKE.AMP,NAME=EQ
*RESTART,WRITE,FREQUENCY=100
**
*STEP
*FREQUENCY,EIGENSOLVER=LANCZOS, SIM=NO
10,
*EL PRINT,FREQUENCY=0
*NODE PRINT
U,
*MODAL FILE
*OUTPUT,FIELD,OP=NEW
*NODE OUTPUT
U,
*END STEP
*STEP
 EARTHQUAKE INPUT
*MODAL DYNAMIC
 .01 , 25.
*SELECT EIGENMODES,GENERATE
1,6,1
*MODAL DAMPING
1,6
*BASE MOTION,DOF=1,AMPLITUDE=EQ,SCALE=386.09
*PRINT,FREQUENCY=50
*EL PRINT,ELSET=PR,FREQUENCY=500
S,E
*NODE PRINT,FREQUENCY=100
U,TU
V,A
*NODE FILE,NSET=ENDS,FREQUENCY=100
U,V,A,TU
*MODAL FILE
GU,GV,GA
*OUTPUT,FIELD, OP=NEW, FREQUENCY=100
*NODE OUTPUT,NSET=ENDS
U,V,A,TU
*OUTPUT,HISTORY,OP=NEW, FREQUENCY=1
*NODE OUTPUT,NSET=ENDS
U,V,A,TU
*MODAL OUTPUT
GU,GV,GA
*END STEP