$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$   This test of using the -A_SEA option of &ENV. There are
$   six environments defined: HEADB, HEADL, HEADC, 
$   HEADA, BEAMB AND HEADBEAM. 
$   All have the same period, and the first four are head
$   seas, BEAMB is a beam sea and HEADBEAM is obtained using
$   -a_sea to combine HEADL and BEAMB. 
$   HEADC has a height that is the square root of the sum or
$   the squares of the HEADB and HEADL. The HEADA is defined as
$   the "sum" of the first two; i.e. it has a -sea which is
$   the first and -a_sea which is the second. 
$
$   This test
$   demonstrates that the results for cargo force statistics
$   and beam loads are the same for HEADA and HEADC. Also the
$   resutls for headc are the the rms of those for HEADL and
$   HEADB. It also shows that the wave drift forces of the
$   "A" cases are the same as the sum of the drift forces the
$   the base cases.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$*****************************************     device stuff
$
&dimen -dimen meters m-tons
&device -g_default screen -oecho n        
$
$*****************************************     set up
$
inmodel
&insta -condition 6.0  0.0  0.0
&equi
&stat
$
$*****************************************     parameters
$
&set big  = 10
&set lit  =  5 
&set rms  = &number(sqrt %big**2.+%lit**2) 
&set umn  = -use_mean no -spread 1000
&set hed1 = 00
&set dir1 = head 
&set hed2 = 90
&set dir2 = beam 
&set hed  = %hed1 %hed2
$
$*****************************************     hydrodynamics
$
hydro
    &set heds =        0  10  20  30  40  50  60  70  80  \
                      90 100 110 120 130 140 150 160 170  \
                     180 190 200 210 220 230 240 250 260  \
                     270 280 290 300 310 320 330 340 350
    g_pressure -head  %heds
end
$
$*****************************************     define envs
$
&data env
   env %(dir1)b        %umn -sea ISSC %hed1  %big 8.5 
   env %(dir1)l        %umn -sea ISSC %hed1  %lit 8.5 
   env %(dir1)c        %umn -sea ISSC %hed1  %rms 8.5 
   env %(dir1)a        %umn -sea ISSC %hed1  %big 8.5 -a_sea ISSC %hed1  %lit  8.5 
   env %(dir2)b        %umn -sea ISSC %hed2  %big 8.5 
   env %(dir1)%(dir2)  %umn -sea ISSC %hed2  %big 8.5 -a_sea ISSC %hed1  %lit  8.5 
end_&data
&sele :e -sel %(dir1)@ %(dir2)@
&set post_env = &names(env :e)
$
$*****************************************     drift force
$
&loop env ( %post_env )
    &title Drift Force,  Environment: %env
    &type Drift Force,  Environment: %env
    &env %env
    &stat force
    &stat e_sea_time
&endloop
$
$*****************************************     raos
$
freq_resp
    rao -head %hed
    &loop env %post_env
       &title Cargo force acting on 100T,  Environment: %env
       FR_POINT *n1
            end
         FR_FCARGO 100 1 1 1
            end
         ST_FCARGO %env
            REPORT
            end
   &endloop
end
$
$*****************************************     structural
$
structural
   lcase -rao
   ssolve
end
$
$*****************************************     structural
$
strpost
   &subtitle Loads on beam 
   cases -spectra %post_env
   &selec :l -sel %post_env
   beam_post loads  -ele b1 -load :l -detail
end
$
$*****************************************     struct sfun
$
&loop type (  S_CASES  R_CASES  AMOD     COMBINE  GAMMA_M )
   &type Testing &sta %type
   &stat %type tube -hard
&endloop
$
$*****************************************     all done
$
&fini