$
$*********************************************      basics
$
&title Test of Hydrostatic Interaction
&dimen -dimen  meters k-nts
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
&instate -loc 0 0 0
&data env
   t_press cow1 *a1 *a2 000 .04444
   env cow1 -t_press cow1 -time 1 1
end_&data
struct
  lcase -static  cow1 one
  ssolve
end
strpost
   beam loads
   &loop code ( api nor iso )
      &subtitle Code is %code
&exec -diag detail
      beam h_collapse -detail -code %code
&exec -diag none
   &endloop
$
$*********************************************      all done
$
&fini
