$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$        ----------    RESIZE SAMPLES    ------------
$
$    This set of commands will automatically resize the model to obtain
$ the minimum weight. It uses a macros which is defined in the file
$ rszmac.dat
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      SET BASIC PARAMETERS
$
&dimen -DIMEN FEET KIPS
&TITLE  SALMON & JOHNSON   EXAMPLE 15.4.1 PAGE 898
$
$*********************************************      define macros
$
&MACRO str_basic
&describe process basic
   LCASE -static  BASIC  basic
&describe process wind
   LCASE -static  WIND   wind
   S_REST ~FIXED
&ENDMACRO
&m_act str_basic lcase
$
$*********************************************      read model
$
INMODEL
$
$*********************************************      resize
$
&describe process basic
&env basic
&apply -force -percen @ 0 #live1 100
&stat force
&describe process wind
&env wind
&apply -force -percen @ 0 #live2 100
&stat force
&names shapes -hard
RESIZE UPDOWN 5 str_basic
$
$*********************************************      all done
$
&FINISH