pylamf.f

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

 
C*********************************************************************
 
C...PYLAMF
C...The standard lambda function.
 
      FUNCTION pylamf(X,Y,Z)
 
C...Double precision and integer declarations.
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      INTEGER pyk,pychge,pycomp
 
C...Local variables.
      DOUBLE PRECISION pylamf,x,y,z
 
      pylamf=(x-(y+z))**2-4d0*y*z
      IF(pylamf.LT.0d0) pylamf=0d0
 
      RETURN
      END