FUNCTION FKPROB
*-- 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                                                               
*