pyfisb.f

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

 
C*********************************************************************
 
C...PYFISB
C...Auxiliary routine to PYFINT for SUSY Higgs calculations.
 
      FUNCTION pyfisb(X)
 
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/
 
      pyfisb = log(abs(x*xxm(2)+(1-x)*xxm(3)-x*(1-x)*xxm(1))/
     &(x*(xxm(2)-xxm(3))+xxm(3)))
 
      RETURN
      END