pyfint.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pyfint.f

 
 
 
 
 
C*********************************************************************
 
C...PYFINT
C...Auxiliary routine to PYPOLE for SUSY Higgs calculations.
 
      FUNCTION pyfint(A,B,C)
 
C...Double precision and integer declarations.
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      INTEGER pyk,pychge,pycomp
C...Commonblock.
      common/pyints/xxm(20)
      SAVE/pyints/
 
C...Local variables.
      EXTERNAL pyfisb
      DOUBLE PRECISION pyfisb
 
      xxm(1)=a
      xxm(2)=b
      xxm(3)=c
      xlo=0d0
      xhi=1d0
      pyfint  = pygaus(pyfisb,xlo,xhi,1d-3)
 
      RETURN
      END