*HEADING
: *ENERGY PRINT verification for *MODAL DYNAMICS
*RESTART, WRITE
*NODE
1 ,, 300.
11, 
*NSET,NSET=ENDS
1,11
*ELEMENT,TYPE=B23, ELSET=EALL
1,1,11
*BEAM GENERAL SECTION,SECTION=RECT,ELSET=EALL,DENSITY=0.000728,DEP=1
1. , 2.

10.E6,,,,0.0
30.E6,,,,1.0
*INITIAL CONDITIONS,TYPE=FIELD
ENDS,1.0
*BOUNDARY
11, 1, 6
*AMPLITUDE,VALUE=R,NAME=EQ
 0.0000000,  0.0000000,  0.0628319,  0.0627905,  0.1256637,  0.1253332,  0.1884956,  0.1873813
 0.2513274,  0.2486899,  0.3141593,  0.3090170,  0.3769911,  0.3681246,  0.4398230,  0.4257793
 0.5026548,  0.4817537,  0.5654867,  0.5358268,  0.6283185,  0.5877853,  0.6911504,  0.6374240
 0.7539822,  0.6845471,  0.8168141,  0.7289686,  0.8796459,  0.7705132,  0.9424778,  0.8090170
 1.0053096,  0.8443279,  1.0681415,  0.8763067,  1.1309734,  0.9048271,  1.1938052,  0.9297765
 1.2566371,  0.9510565,  1.3194689,  0.9685832,  1.3823008,  0.9822873,  1.4451326,  0.9921147
 1.5079645,  0.9980267,  1.5707963,  1.0000000,  1.6336282,  0.9980267,  1.6964600,  0.9921147
 1.7592919,  0.9822873,  1.8221237,  0.9685832,  1.8849556,  0.9510565,  1.9477874,  0.9297765
 2.0106193,  0.9048271,  2.0734512,  0.8763067,  2.1362830,  0.8443279,  2.1991149,  0.8090170
 2.2619467,  0.7705132,  2.3247786,  0.7289686,  2.3876104,  0.6845471,  2.4504423,  0.6374240
 2.5132741,  0.5877853,  2.5761060,  0.5358268,  2.6389378,  0.4817537,  2.7017697,  0.4257793
 2.7646015,  0.3681246,  2.8274334,  0.3090170,  2.8902652,  0.2486899,  2.9530971,  0.1873813
 3.0159289,  0.1253332,  3.0787608,  0.0627905,  3.1415927,  0.0000000,  3.2044245, -0.0627905
 3.2672564, -0.1253332,  3.3300882, -0.1873813,  3.3929201, -0.2486899,  3.4557519, -0.3090170
 3.5185838, -0.3681246,  3.5814156, -0.4257793,  3.6442475, -0.4817537,  3.7070793, -0.5358268
 3.7699112, -0.5877853,  3.8327430, -0.6374240,  3.8955749, -0.6845471,  3.9584067, -0.7289686
 4.0212386, -0.7705132,  4.0840705, -0.8090170,  4.1469023, -0.8443279,  4.2097342, -0.8763067
 4.2725660, -0.9048271,  4.3353979, -0.9297765,  4.3982297, -0.9510565,  4.4610616, -0.9685832
 4.5238934, -0.9822873,  4.5867253, -0.9921147,  4.6495571, -0.9980267,  4.7123890, -1.0000000
 4.7752208, -0.9980267,  4.8380527, -0.9921147,  4.9008845, -0.9822873,  4.9637164, -0.9685832
 5.0265482, -0.9510565,  5.0893801, -0.9297765,  5.1522120, -0.9048271,  5.2150438, -0.8763067
 5.2778757, -0.8443279,  5.3407075, -0.8090170,  5.4035394, -0.7705132,  5.4663712, -0.7289686
 5.5292031, -0.6845471,  5.5920349, -0.6374240,  5.6548668, -0.5877853,  5.7176986, -0.5358268
 5.7805305, -0.4817537,  5.8433623, -0.4257793,  5.9061942, -0.3681246,  5.9690260, -0.3090170
 6.0318579, -0.2486899,  6.0946897, -0.1873813,  6.1575216, -0.1253332,  6.2203535, -0.0627905
 6.2831853,  0.0000000
*BASELINE CORRECTION
*STEP
*FREQUENCY, eigensolver=lanczos, SIM=NO
3, , 
*EL PRINT,FREQ=0
*NODE PRINT
 U,
*MODAL FILE 
*END STEP
*STEP
 EARTHQUAKE INPUT
*MODAL DYNAMIC
 .01 , 6.28
*MODAL DAMPING
1,3
*SELECT EIGENMODES, GENERATE
1,3,1
*BASE MOTION,TYPE=ACCELERATION,DOF=1,AMP=EQ
*PRINT,FREQ=50,SOLVE=NO
*EL PRINT,FREQ=500
S,E
*NODE PRINT,FREQ=100
 U,TU
 V,A
*NODE FILE,NSET=ENDS,FREQ=2
 U,V,A,TU
*MODAL FILE,FREQ=2
 BM, 
*ENERGY PRINT,FREQ=1
*ENERGY FILE,FREQ=1
*END STEP