$
$*********************************************      basics
$
&dimen -dimen feet kips
&device -oecho no
&macro run
freq_resp
  rao
  fr_point
    report
    end
end
&endmacro
$
$*********************************************      read model
$
inmodel
&apply -load tan@ 0
&instate -con 10 0 .11
&status
hydro
   g_press -heading 90
end
run
&describe piece lbarge -tanaka 0
run
&apply -load tan@ 0 tanaka1 100
run
&apply -load tan@ 0 tanaka2 100
run
&apply -load tan@ 0 tanaka3 100
run
$
$*********************************************      all done
$
&finish
