*HEADING
 RESPONSE SPECTRUM FOR 3-D
 BUILDING                 
*RESTART,READ,STEP=1,INC=1,WRITE,FREQUENCY=0
*ELSET,ELSET=SMALL
1,9,104,112,116,148,152,160,172,176
*SPECTRUM,TYPE=ACCELERATION,INPUT=SPECTRUM.ACC,
NAME=SPEC
*STEP
*RESPONSE SPECTRUM,SUM=ABS,COMP=ALGEBRAIC
SPEC,1.,0.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*EL PRINT,ELSET=SMALL
SF, 
*NODE PRINT,NSET=TOP
U, 
*NODE PRINT
RF, 
*NODE FILE,NSET=TOP
U, 
*NODE FILE
RF, 
*EL FILE,ELSET=SMALL
SF, 
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=SRSS,COMP=ALGEBRAIC
SPEC,1.,0.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=SRSS,COMP=SRSS
SPEC,1.,0.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=CQC,COMP=ALGEBRAIC
SPEC,1.,0.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=NRL,COMP=ALGEBRAIC
SPEC,1.,0.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=NRL,COMP=SRSS
SPEC,1.,0.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=TENP,COMP=SRSS
SPEC,1.,0.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=TENP,COMP=ALGEBRAIC
SPEC,1.,0.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
****************************
**multidirectional spectra**
****************************
*STEP
*RESPONSE SPECTRUM,SUM=SRSS,COMP=ALGEBRAIC
SPEC,1.,0.,0.,1.
SPEC,0.,1.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=SRSS,COMP=SRSS
SPEC,1.,0.,0.,1.
SPEC,0.,1.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=TENP,COMP=SRSS
SPEC,1.,0.,0.,1.
SPEC,0.,1.,0.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP
*STEP
*RESPONSE SPECTRUM,SUM=CQC,COMP=SRSS
SPEC,1.,0.,0.,1.
SPEC,0.,1.,0.,1.
SPEC,0.,0.,1.,1.
*MODAL DAMPING,MODAL=DIRECT
1,30, 0.02
*SELECT EIGENMODES, GENERATE
1,30,1
*END STEP