*-- Author : S.Burke / J.V. Morris DOUBLE PRECISION FUNCTION FKPROB(CHISQ,NFREE) *-----------------------------------------Updates 07/02/92------- **: FKPROB 30205.SB. Change to avoid UNDEF warning. *-----------------------------------------Updates---------------- ********************************************************************** * * * Double precision version of CERNLIB PROB function * * * ********************************************************************** DOUBLE PRECISION CHISQ REAL CHI2 ********************************************************************** CHI2 = SNGL(CHISQ) CHPROB = PROB(CHI2,NFREE) FKPROB = DBLE(CHPROB) RETURN END *