$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$        ----------    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  GAYLORD & GAYLORD   CRANE FOR SHOP BUILDING  DP5-2
$
$*********************************************      define macros
$
&MACRO str_basic
   LCASE -static basic
   S_REST ~RE1 ~RE2
&ENDMACRO
&m_act str_basic lcase
$
$*********************************************      read model
$
INMODEL
&summary
     class mat
end
$
$*********************************************      resize
$
&env basic
&apply -force -percen @ 100
&stat force
RESIZE UPDOWN 3 str_basic
$
$*********************************************      all done
$
&FINISH