;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; FUNCTION dl         ;;;
;;; By Darrin Casebeer  ;;;
;;;    Kevin Tubbs      ;;;
;;;    Summer 98        ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;

FUNCTION dl, z
  COMMON COSMO
  RETURN,((1+z)^2*(1+Omegamass*z)-z*(2+z)*OmegaLambda)^(0.5)
END