$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$     --------------    a lll x bb x dd ft barge    --------------
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      local variables
$
&local l b d bigl litl dif lft hft bft
$
$*********************************************      factors for dimen
$
&if &uniname(bl) .ne. 'feet' &then
    &set bigl = &number(real 1./3.28)
    &set litl = 25.4
&else
    &set bigl = 1
    &set litl = 1
&endif
&dimen -save -dimen feet kips
&default -save
$
$*********************************************      diffaction type
$
&if &v_exist(diftyp) &then
    &set d_type  = %diftyp
&elseif &v_exist(diftype) &then
    &set d_type  = %diftype
&else
    &set d_type  = strip
&endif
$
$*********************************************      wind & current
$
&set win_cur =
&if &v_exist(v_cur) &then
   &set win_cur = %win_cur -cs_curr &number(scale %v_cur .2  1. 1. )
&endif
&if &v_exist(v_win) &then
   &set win_cur = %win_cur -cs_wind &number(scale %v_win 1.  1. 1. )
&endif
$
$*********************************************      structural model
$
&set plate =
&if &v_exist(pl_model) &then
   &if %pl_model% &then
      &set plate = -plate
   &endif
&endif
$
$*********************************************      basic variables
$
&set vname    =
&set v_npref  = *b@
&set ves_type = barge
&set lwa_ok   = .false.
&set cmp_ok   = .false.
&set flex_ok  = .false.
$
$*********************************************      define body
$
&describe body %vname %ves_type
$
$*********************************************     vessel dimensions
$
&set d         = dd
&set b         = bb
&set l         = ll
&set vdepth    = &number(real %bigl%*%d)  $ barge depth
&set vbeam     = &number(real %bigl%*%b)  $ barge beam
&set vlength   = &number(real %bigl%*%l)  $ barge length
$
$*****************************************************************
$
$   if you do not have launch ways delete the following block
$   if you have launch ways, fill it out
$
$*****************************************************************
$
$
$*********************************************      launch way data
$
&set blway     = &number(real %bigl%*0)          $ beginning of launch way
&set tprihei   = &number(real %bigl%*8)          $ tilt beam depth at pin
&set tsechei   = &number(real %bigl%*0)          $ secondary tilt beam depth
&set tsdist    = &number(real %bigl%*0)          $ dis fm primry pin to sec.
&set xtpin     = &number(real %bigl%*332)        $ dis fm bow to tilt pin
&set tblenp    = &number(real %bigl%*50)         $ length of primary tilt beam
&set tblens    = &number(real %bigl%*50)         $ length of secondary tilt beam
&set depskd    = &number(real %litl%*48)         $ depth of skid beam (in)
&set heiskd    = &number(real %bigl%*(20+48/12)) $ ht of top of skid
&set maxasubm  = &number(real %bigl%*31)         $ max allow keel submerg
&set blwn_p    =                                 $ nodes for port lway
&set blwn_s    =                                 $ nodes for stbd lway
&dimen -save -dimen feet kips
&describe load launch
&apply -percent launch 0
#amass disp 0.06 0.10 3.50 32 200 55                -cen x y z
#drag  disp  .01 .2 1.7 3 1.7*leng/3.46 .2*leng/3.46  -cen x y z
&dimen -rem
&describe load %vname
$
$*********************************************      light ship
$
#weight lship 0.32*%b 0.29*%l 0.29*%l  \
        -cen %l/2  0.    %d/2         \
        -ldist 0 %l                   \
        -cat l_ship
$
$*********************************************      hull data
$
pgen -perm 1.0 -diftype %d_type %win_cur
   &loop k 1 10
      plane %l*(%k-1)/9 -rect 0 %d %b
   &endif
end
$
$*********************************************      nodes
$
*b0000   0.00   0.0  0.0
$
$*********************************************      restore stacks
$
&dimen     -remember
&default -remember
$