$
$*********************************************      basics
$
&dimen -dimen feet kips
&set export = .true.
&title Test of Exporting a "Total Mesh"
&device     -oecho no
$
$*********************************************      read model
$
inmodel
&instate -con 10 0 .11
&status
&if %export &then
   hydro
      g_press lbarge cow -heading 90 135 180
      e_total -note Draft = 10
   end
&endif
freq_resp
  rao -heading 90 135 180
  equ_sum
  fr_point *1
    report
    end
  fr_point *1 -velocity
    report
    end
  fr_point *1 -acc
    report
    end
  st_ex -sea issc 90 1 8
    report
    end
  fr_point *3 *2
    report
    end
  st_point -sea issc 90 10 7.5
    report
    end
end
hydro
   v_mdrift
     report
     end
end
$
$*********************************************      all done
$
&finish
