TFluka/Fstepsz.h

   1 #include "Fdimpar.h"
   2 extern "C" {
   3 /*
   4 *$ CREATE STEPSZ.ADD
   5 *COPY STEPSZ
   6 *
   7 *=== stepsz ===========================================================*
   8 *
   9 *----------------------------------------------------------------------*
  10 *                                                                      *
  11 *   Common stepsz for setting the minimum and maximum step sizes on a  *
  12 *                 a region by region basis: very useful for vacuum re- *
  13 *                 gions with magnetic filed and for saving time ( and  *
  14 *                 accuracy ) with the new plc and lca algorithm in     *
  15 *                 Emf and Fluka                                        *
  16 *                                                                      *
  17 *          W A R N I N G !!!!! At the moment implemented only for      *
  18 *          electron and positron transport in Emf and for charged      *
  19 *          particles transport in Fluka with the new multiple scat-    *
  20 *          tering module!!!!!!                                         *
  21 *                                                                      *
  22 *                  created by A. Ferrari & P. Sala on 14-jan-1990      *
  23 *                                                                      *
  24 *          included in:                                                *
  25 *                        fiprou                                        *
  26 *                        flukam (main)                                 *
  27 *                        kashea                                        *
  28 *                        kaskad                                        *
  29 *                        electr (new version)                          *
  30 *                        mageas                                        *
  31 *                        magnew                                        *
  32 *                        zeroin                                        *
  33 *                                                                      *
  34 *                        Stepmn  = minimum step size (cm)              *
  35 *                        Stepmx  = maximum step size (cm)              *
  36 *                        Mxxrgn = maximum number of regions            *
  37 *                                                                      *
  38 *----------------------------------------------------------------------*
  39 */
  40
  41 //      COMMON / STEPSZ / STEPMN ( MXXRGN ), STEPMX ( MXXRGN )
  42 typedef struct {
  43     Double_t stepmn[mxxrgn];
  44     Double_t stepmx[mxxrgn];
  45 } stepszCommon;
  46
  47 #define STEPSZ COMMON_BLOCK(STEPSZ,stepsz)
  48 COMMON_BLOCK_DEF(stepszCommon,STEPSZ);
  49
  50 }
  51