]>
Commit | Line | Data |
---|---|---|
2690d4bd | 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 |