5 * Revision 1.1.1.1 1995/10/24 10:21:30 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.22 by S.Giani
12 FUNCTION GPHSGP(IELEM,E)
14 C. ******************************************************************
16 C. * FUNCTION TO COMPUTE THE PHOTOEFFECT TOTAL CROSS-SECTION *
17 C. * AS A FUNCTION OF Z AND E *
19 C. * ==>CALLED BY : special dE/dx *
21 C. * (1) Sandia parametrizsation is used; *
22 C. * (2) GPHSGP in cm**/g *
25 C. * J. Chwastowski 31.03.93 *
26 C. ******************************************************************
28 #include "geant321/gcbank.inc"
29 #include "geant321/gcjloc.inc"
30 #include "geant321/gconsp.inc"
31 #include "geant321/gcunit.inc"
32 #include "geant321/gc10ev.inc"
33 #if !defined(CERNLIB_SINGLE)
34 DOUBLE PRECISION EINV,ECUR,ONE
38 C. ------------------------------------------------------------------
41 IF(E.LT.G10EV) GO TO 20
44 IF(IELEM.GT.IQ(JPHXS-2)) THEN
45 WRITE(CHMAIL,10010) IELEM, IQ(JPHXS-2)
46 10010 FORMAT(' *** GPHSGP : element N ',I6,' requested, ',
47 +'but only ',I6,' elements in present mixture')
51 JPHXSI = LQ(JPHXS-IELEM)
56 IF(ECUR.LT.Q(IPOINT)) GO TO 20
60 IF(ECUR.LT.Q(IPOINT)) THEN
62 RES = EINV*(Q(J)+EINV*(Q(J+1)+EINV*(Q(J+2)+EINV*Q(J+3))))
66 C This value is in cm**2/g
67 20 GPHSGP = MAX(RES,0.)