$
$*********************************************      set basics
$
&title Test of Compartments with Structural analysis
&dimen
&device   -g_default device  -oecho no
$
$*********************************************      read model
$
inmodel
medit
   m_pan_fix 100 .1
   map HS#00001 &token(1 %nlist )
   map HS#00021 &token(1 %nlist )
   map HS#00028 &token(4 %nlist )
   &selec :nas -s *j001
   &describe node_nas fbox :nas
end
&status map
&status n_map
&export map
&export n_map
&instate -con 600
&compart -floo  @
&weight -compute 100 .29*600 .29*600 32
&status config
&event 1
&compart -perc @ 100
&status config
&event 2
&compart -open -perc @  100 -int_pre @ .0001
&status config
&event 3
struct
    s_rest ~rest
    lcase -proce 1 2 3
    ssolve
end
strpost
    joint
    rest load -detail
    bmom_sh  %nlist
    view -sel 1 2 8 14 -hard
$
$*********************************************      all done
$
&finish
