*HEADING
 EARTHQUAKE ANALYSIS  S8R
*NODE
*NSET,NSET=ENDS
*NGEN
*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
21, 2, 6
121, 2, 6
221, 2, 6
** AMPLITUDE CURVE DATA FROM CANTILEVER_QUAKEDATA
** THIS INPUT ASSUMES THAT CANTILEVER_QUAKEDATA.INP
** HAS BEEN COPIED TO QUAKE.AMP
*AMPLITUDE,TIME=TOTAL TIME,VALUE=RELATIVE,INPUT=QUAKE.AMP,NAME=EQ
*RESTART,WRITE,FREQUENCY=25
*STEP,INC=1000
 EARTHQUAKE INPUT
*DYNAMIC,ALPHA=0.0,DIRECT
.01 , 2.0
*BOUNDARY,TYPE=ACCELERATION,AMPLITUDE=EQ
 21,  1,1,  386.09
121,  1,1,  386.09
221,  1,1,  386.09
*PRINT,RESIDUAL=NO,FREQUENCY=10
*EL PRINT,ELSET=PR,FREQUENCY=50
S,E
*NODE PRINT,FREQUENCY=10
U,
*NODE FILE,NSET=ENDS
U,V,A
*ENERGY FILE,FREQUENCY=1
*END STEP