*HEADING
: MODAL DYNAMIC PROCEDURE - BASELINE CORRECTION
** THIS INPUT DECK IS CREATED FROM 'PMODBASE'
** THE MAIN PURPOSE OF THIS MODEL IS TO VERIFY THE
** SECONDARY BASE MOTION OPTION. THE (PRIMARY) BASE
** IS TREATED AS SECONDARY BASE AND SO THE U, V, A
** SOLVED FOR ARE GIVEN IN ABSOLUTE TERMS, I.E. U=TU etc.
**
** Another objective of this model is to verify the
** ASCII FILE OUTPUT option with BM records.
**
*RESTART,WRITE,FREQ=100
*NODE
1 ,, 300.
11, 
*NSET,NSET=ENDS
1,11
*ELEMENT,TYPE=B23, ELSET=EALL
1,1,11
*MATERIAL,NAME=A1
*ELASTIC
30.E6, 
*DENSITY
 .000728, 
*BEAM SECTION,SECTION=RECT,MATERIAL=A1, ELSET=EALL
1. , 2.
*BOUNDARY
11, 1, 6
*AMPLITUDE,VALUE=R,NAME=ZERO
 0.0000000,  0.0000000,  6.2831853,  0.0000000
*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
** A SHIFT MUST BE APPLIED TO PREVENT NUMERICAL PROBLEMS
** BECAUSE DOF 1 WILL BE UNCONSTRAINED AS THIS CONSTRAINT 
** AT THE SECONDARY BASE IS BEING REPLACED BY A BIG MASS
*FREQUENCY, eigensolver=lanczos
3, , ,-10000. 
** DEFINE SECONDARY BASE **
*BOUNDARY,BASE NAME=BASE2-11
11, 1
11, 2
11, 6
*EL PRINT,FREQ=0
*NODE PRINT
U,
*MODAL FILE 
*OUTPUT, FIELD
*ELEMENT OUTPUT
S,
*END STEP
*STEP
 EARTHQUAKE INPUT
*MODAL DYNAMIC
 .01 , 6.28
*MODAL DAMPING
1,6
*SELECT EIGENMODES, GENERATE
1,6,1
**1,3
***BASE MOTION,TYPE=ACCELERATION,DOF=1,AMP=EQ
*BASE MOTION,TYPE=ACCELERATION,DOF=1,AMP=EQ, BASE NAME=BASE2-11
*BASE MOTION,TYPE=ACCELERATION,DOF=2,AMP=ZERO, BASE NAME=BASE2-11
*BASE MOTION,TYPE=ACCELERATION,DOF=6,AMP=ZERO, BASE NAME=BASE2-11
*PRINT,FREQ=50,SOLVE=NO
*EL PRINT,FREQ=500
S,E
*NODE PRINT,FREQ=100
U,TU
V,A
*FILE FORMAT,ASCII
*NODE FILE,NSET=ENDS,FREQ=2
U,V,A,TU
*MODAL FILE,FREQ=2
 BM, 
*OUTPUT, FIELD
*ELEMENT OUTPUT
S,
*END STEP