5 * Revision 1.1.1.1 1995/10/24 10:19:51 cernlib
9 *CMZ : 3.21/02 29/03/94 15.41.37 by S.Giani
12 C** ALL MATERIAL CONSTANTS ARE PARTLY STORED ON THE COMMON /MAT IN THE
13 C** BLOCK DATA OR CALCULATED IN THE ROUTINE MATTER.IN PRESENT VERSION
14 C** THERE MAY BE DEFINED UP TO 20 MATERIALS WITH THE MATERIAL-INDEX
15 C** NUMBER 'IND' . THIS MATERIAL INDEX NUMBER MUST BE GIVEN FOR
16 C** EACH CELL OF A CALORIMETER IN THE GEOMETRY INPUT DATA CARDS.
17 C** (SEE COMMON /CALSTR AND INIT). IND =0 IS ALWAYS INTERPRETED AS
18 C** VACUUM IN THE PROGRAM.
20 C** DEN (IND+1) = DENSITY (GR/CM**3)
21 C** RADLTH(IND+1) = RADIATION LENGTH (CM)
22 C** ATNO (IND+1) = ATOMIC NUMBER (AVERAGE VALUE, SEE LATER)
23 C** ZNO (IND+1) = CHARGE NUMBER OF NUCLEUS (AVERAGE VALUE, SEE LATER)
24 C** ABSL (IND+1) = ABSORPTION LENGTH (ONLY USED FOR STEP SIZE
26 C** CDEN (IND+1) = C - PARAMETER IN STERNHEIMERS THEORY
27 C** MDEN (IND+1) = M - PARAMETER IN STERNHEIMERS THEORY
28 C** X0DEN (IND+1) = X0- PARAMETER IN STERNHEIMERS THEORY
29 C** X1DEN (IND+1) = X1- PARAMETER IN STERNHEIMERS THEORY
30 C** RION (IND+1) = IONISATION POTENTIAL
31 C** MATID (IND+1) = GHEISHA ALPHANUMERIC LABEL (A4)
32 C** MATID1(IND+1,24) = EGS ALPHANUMERIC LABEL (24*A1)
33 C** 10 PARAMETERS DESCRIBING THE MATERIAL AT VARIOUS PLACES
35 C** PARMAT(IND+1, 1) = X DE/DX CORRECTION FACTOR FOR LANDAU
36 C** TYPE DISTRIBUTIONS
37 C** PARMAT(IND+1, 2) = 1. FOR SOLIDS
39 C** = 3. FOE GASEOUS MATERIALS
40 C** PARMAT(IND+1, 3) = 1. DELTA-RAY SELECTION : ALL PARTICLES
41 C** = 2. DELTA-RAY SELECTION : ONLY MUONS
42 C** = 3. DELTA-RAY SELECTION : MUONS AND ELECTRONS
43 C** = 4. DELTA-RAY SELECTION : MUONS,ELECTRONS,PIONS
44 C** PARMAT(IND+1, 4) = MINIMUM RANGE FOR DELTA-ELECTRONS
45 C** PARMAT(IND+1, 5) = 1. FOR ANORGANIC SCINTILLATORS ONLY
46 C** PARMAT(IND+1, 6) = SATURATION COEFFICIENT IN BIRK'S LAW
47 C** = 1. DEFAULT VALUE SAT=0.010/DENSITY,
48 C** > 1. SAT=PARMAT(IND+1,6)-1.
49 C** PARMAT(IND+1, 7) > 0. INDUCED HADRON NUCLEAR FISSION
50 C** PARMAT(IND+1, 8) > 0. PHOTOABSORBTION AND PHOTOFISSION
51 C** PARMAT(IND+1, 9) > 0. NATURAL RADIOACTIVITY
52 C** PARMAT(IND+1,10) = CORRECTION FACTOR FOR ENERGY LOSS BY
53 C** NUCLEAR BREAKUP EFFECTS
54 C** = 0. DEFAULT MODEL DESCRIPTION IS USED.
56 C** THE DENSITY, ATOMIC NUMBER AND CHARGE NUMBER , DEFINED ABOVE,
57 C** ARE AVERAGE VALUES FOR COMPOUND MATERIALS LIKE BGO.
58 C** THESE VALUES ARE USED FOR DE/DX- CALCULATIONS ONLY.
60 C** ALL MATERIALS MAY BE DEFINED AS COMPOUNDS OR MIXTURES,
61 C** THE FOLLOWING NUMBERS ARE TAKEN FROM THE EGS DATA FILE,
62 C** OR, IF NOT GIVEN, CALCULATED.
63 C** IFRAC(J) = NUMBER OF COMPOUNDS IN THIS MATERIAL
64 C** FRAC1(J,I) = PARTIAL INTERACT.LENGTH OF THE I.TH COMPOUND
65 C** DEN1 (J,I) = PARTIAL DENSITY OF THE I.TH COMPOUND
66 C** ATNO1(J,I) = ATOMIC NUMBER OF THE I.TH COMPOUND
67 C** ZNO1 (J,I) = CHARGE NUMBER OF THE I.TH COMPOUND