← Back to branch summary

~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to Template/LO/Source/PDF/PhotonFlux.f

  • Committer: olivier-mattelaer
  • Date: 2021-11-12 09:29:31 UTC
  • mfrom: (967.1.15 3.3.0)
  • Revision ID: olivier-mattelaer-20211112092931-4ec9qfzgxkeovqog
version 3.3.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/LO/Source/PDF/PhotonFlux.f
1
 
c/* ********************************************************* */
 
1
c/* ******************************************************** */
2
2
c/*  Equivalent photon approximation structure function.   * */
3
 
c/*   V.M.Budnev et al., Phys.Rep. 15C (1975) 181          * */
4
 
c/*     Improved Weizsaecker-Williams formula              * */
5
 
c/*     http://inspirehep.net/record/359425                * */  
6
 
c/* ********************************************************* */
 
3
c/*   V.M.Budnev, et al., Phys.Rep. 15C (1975) 181         * */
 
4
c/*   https://inspirehep.net/literature/95445              * */
 
5
c/*   For photon from proton (elastic limit, no DGLAP evo) * */
 
6
c/*                                                        * */
 
7
c/*  Improved Weizsaecker-Williams formula                 * */
 
8
c/*   S. Frixione, et al., Phys.Lett.B 319 (1993) 339-345  * */
 
9
c/*   http://inspirehep.net/record/359425                  * */
 
10
c/*   For photon from electron (WW approx) + higher twist  * */
 
11
c/* ******************************************************** */
7
12
c   provided by Tomasz Pierzchala - UCL
8
13
 
9
14
      real*8 function epa_lepton(x,q2max, mode)