*HEADING
fv21t_s3r_f: NAFEMS FORCED VIBRATION; TEST 21T; [S3R]
(DIRECT INTEGRATION)
*RESTART,WRITE,NUM=2, TIMEMARKS=NO
*NODE
1, 0.
7, 5.
61, 0., 5.
67, 5.,5.
*NGEN,NSET=BOT
1,7
*NGEN,NSET=SIDEY
61,67
*NFILL,NSET=NALL
BOT,SIDEY,6,10
*NSET,NSET=LEFT,GEN
1,61,20
*NSET,NSET=EDGE
BOT,LEFT
*NSET,NSET=SIDEX,GEN
7,67,20
*NSET,NSET=NMID
67, 
*ELEMENT,TYPE=S3R
1,1,12,21
2,1,3,12
3,3,23,12
4,23,21,12
*ELGEN,ELSET=ALLE
1, 3,2,4, 3,20,12
2, 3,2,4, 3,20,12
3, 3,2,4, 3,20,12
4, 3,2,4, 3,20,12
*ELSET,ELSET=EMID
35,36
*SHELL SECTION,MATERIAL=MAT,ELSET=ALLE, POISSON=0.3
1.0, 
*MATERIAL,NAME=MAT
*DENSITY
8000.,
*ELASTIC
200.E9,0.3
*DAMPING,ALPHA=5.772,BETA=6.929E-5
*BOUNDARY
NALL,1,2
NALL,6
EDGE,1,3
BOT,5
LEFT,4
SIDEX,XSYMM
SIDEY,YSYMM
**
** Transient Load
** --------------
**
*NSET,NSET=QA_TEST_SIDEX
SIDEX,
**
*STEP
*DYNAMIC,EXPLICIT
**0.0001,0.05
 ,0.05
*DLOAD
ALLE,P,1.E6
***OUTPUT,HISTORY,TIME INTERVAL=0.5E-3
***NODE OUTPUT,NSET=NMID
**U,
***ELEMENT OUTPUT,ELSET=EMID
**S,
***ENERGY OUTPUT
**ALLWK,ALLIE,ALLKE,ALLAE,ALLVD,ETOTAL,DT
*FILE OUTPUT,NUM=4, TIMEMARKS=YES
*NODE FILE, NSET=SIDEX
U, 
*ENERGY FILE
*OUTPUT, FIELD, NUMBER INTERVAL=4, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_SIDEX
U, 
*OUTPUT,FIELD,VARIABLE=PRESELECT
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.0125
*ENDSTEP
**
** Increase the damping and timestep to find steady state
**
*STEP
*DYNAMIC,EXPLICIT
,1.0
**,2.0
*DLOAD
ALLE,P,1.E6
*FILE OUTPUT,NUM=4, TIMEMARKS=YES
*NODE FILE, NSET=SIDEX
U, 
*ENERGY FILE
*OUTPUT, FIELD, NUMBER INTERVAL=4, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_SIDEX
U, 
*OUTPUT,FIELD,VARIABLE=PRESELECT
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.25
*ENDSTEP