Subroutines

CALL GPRSGA GPRSGA calculates the total cross-section for the pair production of photons and the direct pair production of muons in all materials. It tabulates the mean free path, $\lambda =1/\Sigma$ (in cm), as a function of the medium and the energy. For the pair production by photons, it calls the function GPRSGG. The energy bins are the one of the array ELOW in common /CGMULO/ initialised in the routine GPHYSI. The following pointers are used:

JMA = LQ(JMATE-I)

pointer to the $Ith$ material

JPAIR = LQ(JMA-10)

pointer to pair production cross-sections

GPRSGGVALUE = GPRSGG(Z,E) GPRSGG calculates the total cross-section for the pair production of a photon with energy E in material with atomic number Z. It is called by GPRSGA.