*HEADING
 BAND-LIMITED MATERIAL DAMPING TEST
 PLANE STRESS - ELASTIC 
*NODE
1001,   0.0, 0.0
1101, 100.0, 0.0
2001,   0.0, 1.0
2101, 100.0, 1.0
*NGEN,NSET=BOTTOM
1001, 1101, 1
*NGEN,NSET=TOP
2001, 2101, 1
*NSET,NSET=ALLNODE
BOTTOM,TOP
*NSET,NSET=QA_TEST
ALLNODE,
*ELEMENT,TYPE=CPS4R,ELSET=BAR
1, 1001, 1002, 2002, 2001
*ELGEN,ELSET=BAR
1, 100, 1, 1
*ELSET,ELSET=QA_TEST
BAR,
*ORIENTATION,NAME=ORI
0.,1.,0.,-1.,0.,0.
1,0.
*SOLID SECTION,ELSET=BAR,MATERIAL=MAT1,ORIENTATION=ORI
1.0, 
*MATERIAL,NAME=MAT1
*DENSITY
1000., 
*ELASTIC
64000.,.33
*DAMPING, BAND LIMITED=TABULAR, LOW FREQUENCY CUTOFF =4, HIGH FREQUENCY CUTOFF=10
0.102525, 0.0
0.102525, 1.0
*BOUNDARY
BOTTOM, 2,2
*AMPLITUDE,NAME=PULSE
 .0,  .00000,  .1,  .15644,  .2,  .30902,  .3,  .45399
 .4,  .58778,  .5,  .70711,  .6,  .80902,  .7,  .89101
 .8,  .95106,  .9,  .98769, 1.0, 1.00000, 1.1,  .98769
1.2,  .95106, 1.3,  .89101, 1.4,  .80902, 1.5,  .70711
1.6,  .58778, 1.7,  .45399, 1.8,  .30902, 1.9,  .15644
2.0, 0.00000
*NSET,NSET=NOUT,GENERATE
1001,1101,10
*ELSET,ELSET=EOUT
50,
**
*STEP
*DYNAMIC,EXPLICIT
,400.
*CLOAD,AMPLITUDE=PULSE
1001,1,1, 1.0E6
2001,1,1, 1.0E6
*BULK VISCOSITY
0.0,0.0
********************************************
*OUTPUT,FIELD,NUMBER INTERVAL=2,TIMEMARKS=YES
*ELEMENT OUTPUT,ELSET=QA_TEST
LE
*NODE OUTPUT,NSET=QA_TEST
U
*OUTPUT,HISTORY,TIME INTERVAL=200
*ENERGY OUTPUT, VAR=PRESELECT
**********************
**
*END STEP