*HEADING
 : AIRY VIA UWAVE RESTART. TEST INTERMEDIATE CONFIG UPDATE
** SAME AS RISER DYNAMIC -- AIRY THEORY VIA UWAVE ROUTINE-UWAVEXX2 
** *NODE  ,NSET=ENDS
** 1,,1520.
** 11,0.
** *NGEN
** 1,11
** *ELEMENT,TYPE=B21
** 1,1,2
** *ELGEN,ELSET=PIPE
** 1,10
** *ELSET,ELSET=PIPE1,GEN
** 1,5,1
** *ELSET,ELSET=PIPE2,GEN
** 6,10,1
** *BEAM GENERAL SECTION,SECTION=PIPE,DENSITY=22.332,ELSET=PIPE
** .6667,0.0521
** ,,-1.
** 4.32E9,2.16E9
*AQUA
0.,1470.,32.2,1.982
0.,0.,0.,0.
0.844,0.,0.,1470.
**
*WAVE,TYPE=USER,STOCHASTIC=5.0
0.,0., 0.05,1.0, 0.075,120., 0.12,20.,
0.2,1.0, 0.5,0.0
**
** DUMMY WAVE FREQUENCY/AMPLITUDE DATA GIVEN ABOVE
** Random Number Seed and Wave Spectrum Data are accessed in uwave.f
** and written to external file (.96) via FORTRAN unit 96
** which is opened in user subroutine usetupinfo.f
**
**             *WAVE,TYPE=AIRY
**             10.,415.108,-54.026,1.
** USER SUBROUTINES DISP AND UWAVE SPECIFIED BELOW
**
*RESTART,WRITE,FREQUENCY=5,READ,STEP=1,INC=8,ENDSTEP,OVERLAY
*STEP,NLGEOM,INC=200
  DYNAMICS - write intermed config to temporary storage
*DYNAMIC,DIRECT
.125,18.
*EL PRINT,FREQUENCY=10
SF, 
*EL FILE,FREQUENCY=10
SF,
nforc,
*ENERGY PRINT,ELSET=PIPE1
*ENERGY PRINT,ELSET=PIPE2
*ENERGY FILE,ELSET=PIPE1,freq=1
*ENERGY FILE,ELSET=PIPE2,freq=1
*EL PRINT,ELSET=PIPE1,TOTALS=YES
ELEN, 
*END STEP
*STEP,NLGEOM,INC=1
  Dummy step - store intermed config to an external file uwavexx3.017
  The intermed config data are also written to the .msg file.
  To facilitate QA of these data, the data in the file uwavexx3.017
  are post-processed and copied to the results file as NFORC records
  via a .fil post-proprosessing program uwavexx5.f.
  This program creates the UWAVEXX3.FIN file with the NFORC records
  storing the interm config data. UWAVEXX3.FIN is renamed to UWAVEXX5.FIL
  and UWAVEXX5.FUT is created for internal QA.
*DYNAMIC
1.e-5,1.e-5
*BOUNDARY,FIXED
1,1,2
1,6,6
11,1,2
11,6,6
*EL PRINT,FREQUENCY=0
SF, 
*EL FILE,FREQUENCY=0
SF,
nforc,
*ENERGY PRINT,ELSET=PIPE1,freq=0
*ENERGY PRINT,ELSET=PIPE2,freq=0
*ENERGY FILE,ELSET=PIPE1,freq=0
*ENERGY FILE,ELSET=PIPE2,freq=0
*NODE FILE,FREQ=0
*EL PRINT,ELSET=PIPE1,TOTALS=YES,freq=0
ELEN, 
*END STEP
***************************************************
***************************************************