$
$*********************************************      basic stuff
$
&dimen -dimen feet kips
&default -depth 100
$
$*********************************************      read model
$
inmodel
$
$*********************************************      part move
$
&describe part  plate -move 10
$
$*********************************************      instate
$
&instate -loc 100 0 -1000
&status
&status force
$
$*********************************************      part str. fun
$
&type
&cutype Testing part bouyancy and cb
&type
&type buoyancy  = &part(max_buoy plate)
&type par cb    = &part(max_cb  plate )
&type bod cb    = &part(max_cb  plate -b)
&type glo cb    = &part(max_cb  plate -g)
&type
&cutype Testing part string functions
&type
&type part CG       &part(CG      )
&type part WEIGHT   &part(WEIGHT  )
&type part RADII    &part(RADII   )
&type part E_NODES  &part(E_NODES )
&type part MAX_BUOY &part(MAX_BUOY)
&type part MAX_CB   &part(MAX_CB  )
&type part CURRENT  &part(CURRENT )
&type part BODY     &part(BODY )
$
$*********************************************      all done
$
&fini
