*HEADING
  3-D BUILDING SUBJECTED TO EARTHQUAKE
  RESP. SPECTRUM     
*RESTART,WRITE,FREQUENCY=99
*NODE,NSET=BOT
1,
5,200.,0.,0.,0.
9,350.,0.,0.,0.
13,550.,0.,0.,0.
17,550.,200.,0.
21,550.,350.,0.
25,550.,550.,0.
29,350.,550.,0.
33,200.,550.,0.
37,0.,550.,0.
41,0.,350.,0.
45,0.,200.,0.
*NCOPY,OLD SET=BOT,NEW SET=TOP,SHIFT,
CHANGE NUMBER=16000
0.,0.,400.
0.,0.,0.,0.,0.,10.,0.
*NFILL
BOT,TOP,16,1000
*NGEN
4021,4025,1
*NGEN,NSET=B1
4001,4005,1
4005,4009,1
4009,4013,1
*NGEN,NSET=B3
4013,4017,1
4017,4021,1
4021,4024,1
*NCOPY,OLD SET=B1,NEW SET=B2,REFLECT=POINT,
CHANGE NUMBER=24
275.,275,100.
*NCOPY,OLD SET=B3,NEW SET=B4,REFLECT=POINT,
CHANGE NUMBER=24
275.,275,100.
*NSET,NSET=BOT1
B1,B2,B3,B4
*NCOPY,OLD SET=BOT1,NEW SET=TOP1,SHIFT,
CHANGE NUMBER=12000
0.,0.,300.
0.,0.,0.,0.,0.,10.,0.
*NFILL
BOT1,TOP1,3,4000
**
** NODE USED TO DEFINE THE SECTION ORIENTATION
** OF ELSET C1
*NODE
 50001,1000,0
**
**CREATE ALL COLUMNS
*ELEMENT,TYPE=B32,ELSET=C1
1,1,1001,2001,50001
*ELGEN,ELSET=C1
1,8,2000,1,12,4,8
**CREATE BEAMS IN FRAME 1
*ELEMENT,TYPE=B32,ELSET=B1
101,4001,4002,4003
*ELGEN,ELSET=B1
101,4,4000,1,6,2,4
**CREATE BEAMS IN FRAME 2
*ELEMENT,TYPE=B32,ELSET=B2
125,4013,4014,4015
*ELGEN,ELSET=B2
125,4,4000,1,6,2,4
**CREATE BEAMS IN FRAME 3
*ELEMENT,TYPE=B32,ELSET=B3
149,4025,4026,4027
*ELGEN,ELSET=B3
149,4,4000,1,6,2,4
**CREATE BEAMS IN FRAME 4
*ELEMENT,TYPE=B32,ELSET=B4
173,4037,4038,4039
*ELGEN,ELSET=B4
173,4,4000,1,5,2,4
*ELEMENT,TYPE=B32,ELSET=B4
193,4047,4048,4001
194,8047,8048,8001
195,12047,12048,12001
196,16047,16048,16001
*ELSET,ELSET=THREE
 1,9,104
*MATERIAL,NAME=STEEL
*ELASTIC
30.E6, 
*DENSITY
0.000728, 
*BEAM SECTION,SECTION=BOX,MATERIAL=STEEL,ELSET=C1
 14.,14.,1.5,1.5,1.5,1.5 
*BEAM SECTION,SECTION=BOX,MATERIAL=STEEL,ELSET=B1
 8.0,10.,1.0,1.0,1.0,1.0
 0.,1.,0.
*BEAM SECTION,SECTION=BOX,MATERIAL=STEEL,ELSET=B2
 8.0,10.,1.0,1.0,1.0,1.0
 -1.,0.,0.
*BEAM SECTION,SECTION=BOX,MATERIAL=STEEL,ELSET=B3
 12.,14.,1.2,1.2,1.2,1.2
 0.,-1.,0.
*BEAM SECTION,SECTION=BOX,MATERIAL=STEEL,ELSET=B4
 12.,14.,1.2,1.2,1.2,1.2
 1.,0.,0.
*BOUNDARY
 BOT,1,6
*STEP
*FREQUENCY, eigensolver=lanczos, SIM=NO
 30, , 
*NODE PRINT,NSET=TOP
 U, 
*EL PRINT,FREQUENCY=0
*EL FILE,ELSET=THREE
 SF, 
*OUTPUT,FIELD
*ELEMENT OUTPUT,ELSET=THREE
SF,
*NODE FILE,NSET=TOP
 U, 
*OUTPUT,FIELD
*NODE OUTPUT,NSET=TOP
U,
*MODAL FILE
*OUTPUT,HISTORY,FREQUENCY=1
*MODAL OUTPUT
*END STEP