$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                            air_cush commands                        @
$@                                                                     @
$@  Set the variables to control the execution:                        @
$@                                                                     @
$@      import - .true. to use the pressure database in the data file. @
$@               .false. generate pressure database. This will         @
$@               generate air_cush.ppo which should be used to         @
$@               replace the existing one in the data file.            @
$@                                                                     @
$@      press  - .true. use air cushion,                               @
$@               .false. assmue that box has a bottom                  @
$@                                                                     @
$@      clear  - the underkeel clearance (meters)                      @
$@                                                                     @
$@      draft  - draft at center of box  (meters)                      @
$@                                                                     @
$@      heading - heading of sea (degrees)                             @
$@                                                                     @
$@      p_resp  - point at which RAOs will be computed                 @
$@                                                                     @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$
$*********************************************      set basics
$
&set import  = .true.
&set press   = .true.
&set clear   =  &number(real 130*80/1000 )
&set draft   = 11.4
&set heading = 180
&set p_resp  = 0.  0.  0.
$
$*********************************************      basic stuff
$
&dimen -dimen meters tonnes
&device   -g_default device  -oecho no
$
$*********************************************      diffraction pan size
$
&parameter -m_dist 10
$
$*********************************************      title
$
&if %press &then
   &title Big "Box" with Pressure
&else
   &title Big "Box" with Floor
&endif
&subtitle Underkeel Clearance = %clear
$
$*********************************************      read model
$
inmodel
$
$*********************************************      water depth
$
&env -depth %draft%+%clear
$
$*********************************************      set draft
$
&instate -con %draft
$
$*********************************************      set air press
$
&if %press &then
   &dimen -save -dimen feet kips
   &compart  -correct -perc @ 50 -int @ .01 -open @
   &dimen -remember
&endif
$
$*********************************************      set weight radii
$
&weight -compute 10.62 41 41 41
$&status b_w
&status force
$
$*********************************************      compute hydro ?
$
&if .not. %import &then
   hydro
      g_press -period 6 7 8 9 10 11 12 13 14 15 \
                      16 17 18 19 20 \
              -heading  %heading -new_drif yes
      e_press
   end
&endif
$
$*********************************************      compute raos
$
freq_resp
   rao -head %heading
   fr_point %p_resp
      c_scale .111 2
      plot 2 7 -n
      report
      end
end
$
$*********************************************      all done
$
&finish
