Subroutines

CALL GPHINI GPHINI steers initialisation of the constants. It calls GHPRIN for initialisation of the atom decay rates, GHSLIN to initialise atomic shell potentials and ionisation energies and GPHXIN for the initialisation of the cross-section constants. It is called by GPHOTI. CALL GPHRIN Initialisation of the atom decay rates. The routine is called by GPHINI. CALL GSHLIN Initialisation of the atomic shell potentials and ionisation energies. GSHLIN is called by GPHINI. CALL GPHXIN Initialisation of the cross-section constants for elements with $Z\le 100$ . It is called by GPHINI. CALL GPHXSI GPHXSI is called by GPHYSI for every tracking medium. It calculates the cross-section coefficients. The results of the calculations are stored in the photoelectric effect constants bank created by this routine. CALL GFSHDC GFSHDC calls GFRDT, GNRDT and GFSDPR for the probabilities of atomic state transitions and the transition energies and stores them in the ZEBRA bank. It is called by GPHXSI. CALL GFSHLS GFSHLS returns the shell potentials in eV for an atom. It is called by GFSHDC. CALL GFRDT GFRDT returns probability distribution and energies of the atomic radiative transitions. It is called by GFSHDC. CALL GNFRDT GNFRDT returns probability distribution and energies of the non-radiative atomic transitions. It is called by GFSHDC. CALL GFSDPR GFSDPR returns probability of the shell radiative decay. It is called by GFSHDC. CALL GPHOTI GPHOTI calculates the total cross-section for the photoelectric effect. It tabulates the mean free path, $\lambda =\; 1/\Sigma$

(in cm), as a function of the medium and the energy. If $Z\le 100$ then it calls the function GPHSG1 for the total cross-section. Otherwise GPHSIG function is used. GPHOTI is called at initialisation time by GPHYSI. GPHSG1VALUE = GPHSG1(EGAM) GPHSG1 calculates the total cross-section for photoelectric effect. It is called by GPHOTI for $Z\le 100$ . GPHSIGVALUE = GPHSIG(Z,EGAM) GPHSIG calculates the total cross-section for the photoelectric effect of a photon with energy EGAM in material with atomic number $Z>\; 100$ . It is called by GPHOTI.