*HEADING
fv13t_s4rs_c: NAFEMS FORCED VIBRATION; TEST 13T; [S4RSW]
(DIRECT INTEGRATION)
*RESTART,WRITE,NUM=2, TIMEMARKS=NO
*NODE
*NGEN,NSET=BOT
*NGEN,NSET=TOP
*NFILL,NSET=NALL
BOT,TOP,8,10
*NSET,NSET=LEFT,GEN
*NSET,NSET=EDGE
BOT,LEFT
*NSET,NSET=NMID
*NSET,NSET=SIDEX
*NSET,NSET=SIDEY
*ELEMENT,TYPE=S4RSW
*ELGEN,ELSET=ALLE
*ELSET,ELSET=EMID
*SECTION CONTROLS, NAME=HG
*SHELL SECTION,MATERIAL=MAT,ELSET=ALLE,CONTROLS=HG
0.05,
*MATERIAL,NAME=MAT
*DENSITY
8000.,
*ELASTIC
200.E9,0.3
*DAMPING,ALPHA=0.299,BETA=1.339E-3
*BOUNDARY
NALL,1,2
NALL,6
EDGE,1,3
BOT,5
LEFT,4
SIDEX,XSYMM
SIDEY,YSYMM
**
** Transient Load
** --------------
**
*STEP
*DYNAMIC,EXPLICIT
**0.002,0.5
 ,0.5
*DLOAD
ALLE,P,100.
***OUTPUT,HISTORY,TIME INTERVAL=0.005
***NODE OUTPUT,NSET=NMID
**U3,
***ELEMENT OUTPUT,ELSET=EMID
**S11,
***ENERGY OUTPUT
**ALLWK,ALLIE,ALLKE,ALLAE,ALLVD,ETOTAL,DT
*OUTPUT,FIELD,VAR=PRESELECT,NUMBER INTERVAL=5
**
** Output requests for qa testing
**
*NSET,NSET=QA_TEST
SIDEX,
*OUTPUT,FIELD,NUMBER INTERVAL=4,TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST
U,
*OUTPUT,HISTORY,VAR=PRESELECT,TIME INTERVAL=0.125
*FILE OUTPUT, NUMBER INTER=4, TIMEMARKS=YES
*NODE FILE, NSET=SIDEX
U,
*ENERGY FILE
*ENDSTEP
**
** Increase the time period to find steady state
**
*STEP
*DYNAMIC,EXPLICIT
** ,23.0
,5.0
*DLOAD
ALLE,P,100.
*ENDSTEP