$
$*********************************************      basics
$
&title Test Of Twinbox Hinge Connection With Gdofs
&dimen -dimen feet kips
&device     -g_default device -oecho no
&set num_modes = 10
&set strp   := .false.
&set gdof_n := .true.
$
$*********************************************      read model
$
inmodel
$
$*********************************************      setup
$
&apply @
&instate -con twinbox 10 0 0
&weight -compute twinbox 0. 32 129 129
&status -h
$
$
$*********************************************      get modes
$
struc
   modes -num_ev %num_modes% -no_fix $-diag detail
end
strpos
   modes value
   &loop i 1 %num_modes%
      &set cname = M@%i%
      &subt Mode %i%  %cname%
      modes vector -load %cname%
   &endloop
end
$
$*********************************************      use gdofs
$
&describe body twinbox -gen 1
&equi
&status -h
&status config -h
$
$*********************************************      freq
$
Hydro
   g_press -period 5 6 7 8 9 10 11 12 13 14  -heading 0
end
freq_resp
  rao
   &subtitle RAOs at *P4 With Gdofs
   fp_std *p4
   &subtitle RAOs at *OR With Gdofs
   fp_std *or
   &subtitle RAOs at *S1 With Gdofs
   fp_std *s1
End
$
$*********************************************      all done
$
&fini
