*HEADING
: MODAL DYNAMIC PROCEDURE - DISPLACEMENT TYPE BASE MOTION
** 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.
**
** BASELINE CORRECTION CANNOT BE USED WITH THIS INPUT FILE
** SINCE DISPLACEMENT TYPE BASE MOTION IS SPECIFIED. THE 
** DISPLACEMENT AMPLITUDE CURVE IS SUFFICIENTLY SMOOTHENED 
** SINCE TIME DERIVATIVES OF IT ARE REQUIRED FOR THE ANALYSIS
**
*RESTART,WRITE,FREQ=100
*NODE
1 ,, 300.
11, 
*NGEN,NSET=NALL
1,11
*NSET,NSET=ENDS
1,3,11
*ELEMENT,TYPE=B23, ELSET=EALL
1,1,3
*ELGEN,ELSET=EALL
1,5,2,1
*MATERIAL,NAME=A1
*ELASTIC
30.E6, 
*DENSITY
 .000728, 
*BEAM SECTION,SECTION=RECT,MATERIAL=A1, ELSET=EALL
1. , 2.
*AMPLITUDE,VALUE=R,NAME=ZERO
 0.0000000,  0.0000000,  6.2831853,  0.0000000
*AMPLITUDE,VALUE=R,NAME=EQ,SMOOTH=0.05
0.000, 0.00000000,0.03,  0.0, 0.063,-0.00159576,0.126,-0.00620597,
0.188,-0.01356463,
** the rest of the amp data truncated
*BOUNDARY
1,1,6
11,2
11,6
*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, SIM=NO
3, , ,-10000. 
** DEFINE SECONDARY BASE **
*BOUNDARY,BASE NAME=BASE2-11
11, 1
*EL PRINT,FREQ=0
*NODE PRINT
U,
*MODAL FILE
*END STEP
*STEP
 EARTHQUAKE INPUT
*MODAL DYNAMIC
1.e-3, .188
*MODAL DAMPING
1,4
*SELECT EIGENMODES, GENERATE
1,4,1
*BASE MOTION,TYPE=DISPLACEMENT,DOF=1,AMP=EQ, 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,VAR=PRESELECT
*OUTPUT,HISTORY
*ENERGY OUTPUT
ALLSE,ALLKE 
*END STEP