*$ CREATE PHOTEL.ADD
*COPY PHOTEL
*
*=== photel ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1990-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Include file photel:                                             *
*             created on 24-october-1990 by   A. Ferrari & P. Sala     *
*                                                   INFN - Milan       *
*                                                                      *
*     Included in the following routines:                              *
*                                                                      *
*                Photo   (new version)                                 *
*                Phoflu  (version with fluorescence of photo)          *
*                Bdphfl  (block data for photoelectrons and            *
*                           fluorescence data)                         *
*     Variable:                                                        *
*                Umuphe (i,j) = tabulated emission cosines of emitted  *
*                               photoelectrons at given cumulative pro-*
*                               bability ( prob = j / nphumu ) and at  *
*                               given electron beta**2 ( beta2 =       *
*                               (i-1) x dphbt2 ), computed according   *
*                               to the relativistic theory of F. Von   *
*                               Sauter                                 *
*                                                                      *
*                Dumphe (i,j) = tabulated derivatives of the inverse   *
*                               function computed at umuphe            *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( PHB2MX =  9.800000000000000D-01 )
      PARAMETER ( DPHBT2 =  7.000000000000000D-02 )
      PARAMETER ( BETA00 =  2.645751311064591D-01 )
      PARAMETER ( NPHUMU =    30 )
      PARAMETER ( NPHBET =    15 )
*
      COMMON / PHOTEL / UMUPHE ( 0:NPHUMU, NPHBET ),
     &                  DUMPHE ( 0:NPHUMU, NPHBET )
      SAVE / PHOTEL /