$
$*********************************************      set devices
$
&title Test of Internal Pressure
&dimen -dimen feet kips
&device   -oecho no
$
$*********************************************      read model
$
inmodel
&instate -loc 10 10 -10
$
$*********************************************      test draft marks
$
&status draft
$
$*********************************************      test string function
$
&weight  -define 10000 200 0 00 22 50 50
&weight -compute 00 32 97  97
&instate -con 5 0 0
$
$*********************************************      test -int_pre
$
&cutype  Testing -int_pre
&dimen -dimen meters m-tons
&compart -percent tankp1 98.9 -int_pre tankp1 .01   01.1
&status pre_compartment
&compart -percent tankp2 75 -int_pre tankp2 .03   25
&status pre_compartment
&compart -percent tanks1 50 -int_pre tanks1 .05   50
&status pre_compartment
&compart -percent tanks2 25 -int_pre tanks2 .01   75
&status pre_compartment
&event 1
prcpost
    hole_fl
       report
       end
end
&loop cmp ( tankp1 ) $tanks1 tankp2 tanks2 )
   &compart -perc %cmp 0 -int_pre %cmp -1 0
&endloop
&status pre_compartment
$
$*********************************************      test -open_valve
$
&cutype  Testing -open_valve
&loop cmp ( tankp1 ) $tanks1 tankp2 tanks2 )
   &compart -int_pre %cmp 1e-5  75
&endloop
&stat
&status pre_compartment
&compartment -open_valve -percent @ 100
&stat
&status compartment
&cutype  Testing -move -8
&instate -move 0 0 -8
&stat
&status compartment
&cutype  Testing -move -5
&instate -move 0 0 -5
&stat
&status compartment
&cutype  Testing -move -5
&instate -move 0 0 -5
&stat
&status compartment
$
$*********************************************      all done
$
&fini
