Fetch Material Cross-sections

+-------------+                                               +----------##
| Geant 3.15  |               GEANT User's Guide              | CONS101  ##
+-------------+                                               +----------##
                                   

                                   

Author(s) : R.Brun, M.Maire                             Submitted: 23/4/86
Origin    : M.Maire                                      Revised: 10/12/92
                                  

+-------------------------------------------------------------------------------+
|CALL GFTMAT (IMATE,IPART,MECA,KDIM,TKIN,VALUE*,PCUT*,IXST*) |
+-------------------------------------------------------------------------------+
                                  

Fetch and interpolate the dE/dx and cross-sections tabulated in JMATE banks corresponding to material IMATE, particle IPART, mechanism name MECA, kinetic energies TKIN.

The MECAnism name can be :

  `LOSS' `PHOT' `ANNI' `COMP' `MUNU' `BREM' `PAIR' `DRAY' `PFIS' `HADG'
                                  'HADF'
                                  

For hadronic particles it computes the total hadronic cross section from GHEISHA (`HADG'), or FLUKA ('HADF').

Input parameters

IMATE

(INTEGER) GEANT material number

IPART

(INTEGER) GEANT particle number

MECA

(CHARACTER*4) mechanism name of the bank to be fetched

KDIM

(INTEGER) dimension of the arrays TKIN, VALUE

TKIN

(REAL) array of kinetic energies of incident particle (in GeV)

Output parameters

-1

VALUE

(REAL) array of energy losses (in MeVcm ), -1 or macroscopic cross sections (in cm )

PCUT

(REAL) array of the physical cuts for material IMATE (GeV)

IXST

(INTEGER)

0 =

error condition

1 =

normal return, values are returned into the VALUE array

Called by: 110>, GPRMAT, GPLMAT

Note: Common /GCMULO/ contains an array ELOW(200) [CONS199] with NEK1 kinetic energy values ranging from EKMIN to EKMAX. GPHYSI initialises by default -5 the first 91 locations of ELOW with values of energy from 10 GeV (10 4 KeV) to 10 GeV (10 TeV) equally spaced on a logarithmic scale. This can be controlled by the user via the data record or the interactive command ERAN ([BASE040]). ELOW can be used as the input argument TKIN, e.g.:

         CALL GFTMAT (10, 1,`PHOT',NEK1, ELOW ,VALUE, PCUT, IXST)
                                  

will return in array VALUE the photo-electric cross-section for a photon in material number 10.