5 * Revision 1.1.1.1 1995/10/24 10:21:29 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.22 by S.Giani
14 C. ******************************************************************
16 C. * FUNCTION TO COMPUTE THE PHOTOEFFECT TOTAL CROSS-SECTION *
17 C. * AS A FUNCTION OF E *
19 C. * ==>CALLED BY : GPHOTI *
21 C. * (1) Sandia parametrizsation is used; *
22 C. * (2) GPHSG1 in cm**2/g. *
25 C. * J. Chwastowski 17.11.92 *
26 C. ******************************************************************
28 #include "geant321/gcbank.inc"
29 #include "geant321/gcjloc.inc"
30 #include "geant321/gconsp.inc"
31 #include "geant321/gc10ev.inc"
32 #if !defined(CERNLIB_SINGLE)
33 DOUBLE PRECISION EINV,ECUR,ONE
37 C. ------------------------------------------------------------------
40 IF(E.LT.G10EV) GO TO 20
43 IPOINT = JPHXS+Q(JPHXS+1)*3+2
47 IF(ECUR.LT.Q(IPOINT)) GO TO 20
51 IF(ECUR.LT.Q(IPOINT)) THEN
53 RES = EINV*(Q(J)+EINV*(Q(J+1)+EINV*(Q(J+2)+EINV*Q(J+3))))
57 C This value is in cm**2/g
58 20 GPHSG1 = MAX(RES,0.)