DPMJET/flukapro/(STEPSZ)

   1 *$ CREATE STEPSZ.ADD
   2 *COPY STEPSZ
   3 *
   4 *=== stepsz ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *   Common stepsz for setting the minimum and maximum step sizes on a  *
   9 *                 a region by region basis: very useful for vacuum re- *
  10 *                 gions with magnetic filed and for saving time ( and  *
  11 *                 accuracy ) with the new plc and lca algorithm in     *
  12 *                 Emf and Fluka                                        *
  13 *                                                                      *
  14 *          W A R N I N G !!!!! At the moment implemented only for      *
  15 *          electron and positron transport in Emf and for charged      *
  16 *          particles transport in Fluka with the new multiple scat-    *
  17 *          tering module!!!!!!                                         *
  18 *                                                                      *
  19 *                  created by A. Ferrari & P. Sala on 14-jan-1990      *
  20 *                                                                      *
  21 *          included in:                                                *
  22 *                        bdnopt                                        *
  23 *                        fluka (main)                                  *
  24 *                        prolog                                        *
  25 *                        electr (new version)                          *
  26 *                                                                      *
  27 *                        Stepmn  = minimum step size (cm)              *
  28 *                        Stepmx  = maximum step size (cm)              *
  29 *                        Mxxrgn = maximum number of regions            *
  30 *                                                                      *
  31 *----------------------------------------------------------------------*
  32 *
  33       COMMON / STEPSZ / STEPMN ( MXXRGN ), STEPMX ( MXXRGN )
  34