*$ CREATE STSZSF.ADD
*COPY STSZSF
*
*=== stszsf ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1990-2010      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*Ex-Common stepsz for setting the minimum and maximum step sizes on a  *
*                 a region by region basis: very useful for vacuum re- *
*                 gions with magnetic filed and for saving time ( and  *
*                 accuracy ) with the new plc and lca algorithm in     *
*                 Emf and Fluka                                        *
*                                                                      *
*          W A R N I N G !!!!! At the moment implemented only for      *
*          electron and positron transport in Emf and for charged      *
*          particles transport in Fluka with the new multiple scat-    *
*          tering module!!!!!!                                         *
*                                                                      *
*                  created by A. Ferrari & P. Sala on 14-jan-1990      *
*                                                                      *
*          Last change   on  25-may-2010     by    Alfredo Ferrari     *
*                                                                      *
*          included in:                                                *
*                        fiprou                                        *
*                        flukam (main)                                 *
*                        kashea                                        *
*                        kaskad                                        *
*                        electr                                        *
*                        mageas                                        *
*                        magnew                                        *
*                        zeroin                                        *
*                                                                      *
*                        Stepmn  = minimum step size (cm)              *
*                        Stepmx  = maximum step size (cm)              *
*                                                                      *
*----------------------------------------------------------------------*
*
*  Statement functions:
      STEPMN ( MREG ) = GMSTOR ( ISMBGN + MREG )
      STEPMX ( MREG ) = GMSTOR ( ISXBGN + MREG )