*HEADING
  3-D BUILDING SUBJECTED TO EARTHQUAKE
  RESP. SPECTRUM
*RESTART,WRITE,FREQUENCY=99
*NODE,NSET=BOT
*NCOPY,OLD SET=BOT,NEW SET=TOP,SHIFT,
CHANGE NUMBER=16000
*NFILL
BOT,TOP,16,1000
*NGEN
*NGEN,NSET=B1
*NGEN,NSET=B3
*NCOPY,OLD SET=B1,NEW SET=B2,REFLECT=POINT,
CHANGE NUMBER=24
*NCOPY,OLD SET=B3,NEW SET=B4,REFLECT=POINT,
CHANGE NUMBER=24
*NSET,NSET=BOT1
B1,B2,B3,B4
*NCOPY,OLD SET=BOT1,NEW SET=TOP1,SHIFT,
CHANGE NUMBER=12000
*NFILL
BOT1,TOP1,3,4000
**
** NODE USED TO DEFINE THE SECTION ORIENTATION
** OF ELSET C1
*NODE
**
**CREATE ALL COLUMNS
*ELEMENT,TYPE=B32,ELSET=C1
*ELGEN,ELSET=C1
**CREATE BEAMS IN FRAME 1
*ELEMENT,TYPE=B32,ELSET=B1
*ELGEN,ELSET=B1
**CREATE BEAMS IN FRAME 2
*ELEMENT,TYPE=B32,ELSET=B2
*ELGEN,ELSET=B2
**CREATE BEAMS IN FRAME 3
*ELEMENT,TYPE=B32,ELSET=B3
*ELGEN,ELSET=B3
**CREATE BEAMS IN FRAME 4
*ELEMENT,TYPE=B32,ELSET=B4
*ELGEN,ELSET=B4
*ELEMENT,TYPE=B32,ELSET=B4
*ELSET,ELSET=THREE
*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