*HEADING
fv13t_s3rs_vf: NAFEMS FORCED VIBRATION; TEST 13T; [S3RS]
(DIRECT INTEGRATION)
*RESTART,WRITE,NUM=2, TIMEMARKS=NO 
*NODE
1, 0.
5, 5.
41,0.,5.
45, 5.,5.
6,0.625,0.625
9,4.375,0.625
36,0.625,4.375
39,4.375,4.375
*NGEN,NSET=BOT
1,5
*NGEN,NSET=SIDEY
41,45
*NFILL,NSET=NALL
BOT,SIDEY,4,10
*NGEN,NSET=B
6,9,1
*NGEN,NSET=T
36,39,1
*NFILL, NSET=NALL
B,T,3,10
*NSET,NSET=LEFT,GEN
1,41,10
*NSET,NSET=EDGE
BOT,LEFT
*NSET,NSET=NMID
45, 
*NSET,NSET=SIDEX,GENE
5,45,10
*ELEMENT,TYPE=S3RS
1,1,6,11
2, 1,2,6
3, 2,12,6
4,12,11,6
*ELGEN,ELSET=ALLE
1, 4,1,4, 4,10,16
2, 4,1,4, 4,10,16
3, 4,1,4, 4,10,16
4, 4,1,4, 4,10,16
*ELSET,ELSET=EMID
63,64
*SHELL SECTION,MATERIAL=MAT,ELSET=ALLE
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
** --------------
**
*NSET,NSET=QA_TEST_SIDEX
SIDEX,
**
*STEP
*DYNAMIC,EXPLICIT,DIRECT
1.244E-4,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
*FILE OUTPUT, NUMBER INTER=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.125
*ENDSTEP
**
** Increase the time period to find steady state
**
*STEP
*DYNAMIC,EXPLICIT,DIRECT
**2.488E-4 ,25.0
2.488E-4 ,5.0
*DLOAD
ALLE,P,100.
*FILE OUTPUT, NUMBER INTER=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=1.25
*ENDSTEP