Step size region by region.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 7 Oct 2004 07:27:09 +0000 (07:27 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 7 Oct 2004 07:27:09 +0000 (07:27 +0000)
TFluka/Fstepsz.h [new file with mode: 0644]

diff --git a/TFluka/Fstepsz.h b/TFluka/Fstepsz.h
new file mode 100644 (file)
index 0000000..4e6b0b5
--- /dev/null
@@ -0,0 +1,51 @@
+#include "Fdimpar.h"
+extern "C" {
+/*
+*$ CREATE STEPSZ.ADD
+*COPY STEPSZ
+*
+*=== stepsz ===========================================================*
+*
+*----------------------------------------------------------------------*
+*                                                                      *
+*   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      *
+*                                                                      *
+*          included in:                                                *
+*                        fiprou                                        *
+*                        flukam (main)                                 *
+*                        kashea                                        *
+*                        kaskad                                        *
+*                        electr (new version)                          *
+*                        mageas                                        *
+*                        magnew                                        *
+*                        zeroin                                        *
+*                                                                      *
+*                        Stepmn  = minimum step size (cm)              *
+*                        Stepmx  = maximum step size (cm)              *
+*                        Mxxrgn = maximum number of regions            *
+*                                                                      *
+*----------------------------------------------------------------------*
+*/
+
+//      COMMON / STEPSZ / STEPMN ( MXXRGN ), STEPMX ( MXXRGN )
+typedef struct {
+    Double_t stepmn[mxxrgn];
+    Double_t stepmx[mxxrgn];
+} stepszCommon;
+
+#define STEPSZ COMMON_BLOCK(STEPSZ,stepsz)
+COMMON_BLOCK_DEF(stepszCommon,STEPSZ);
+}
+