$
$*********************************************      basics
$
&title Test Of Strip Theory With Gdofs
&dimen -dimen feet kips
&device     -g_default device -oecho no
&set num_modes = 3
$
$*********************************************      read model
$
inmodel
&apply @
&instate -con 10
&weight -compute temp 0. 32 129 129
&stat
&describe interest -assoc *1 *2 *3 *4
&status mot
$
$*********************************************      freq
$
&subtitle Without Gdofs
stp_hyd
$
$*********************************************      get modes
$
struc
   modes -num_ev %num_modes  $-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 temp -gen
&equi
&status config
$
$*********************************************      freq
$
&subtitle With Gdofs
stp_hyd
$
$*********************************************      struct
$
struct
   s_rest ~rest
   lcase -rao
   ssolve
end
strpost
   &sele :l -sel rao@ frq@
   rest -load :l -detail
end
$
$*********************************************      all done
$
&fini
