*-- Author :    Stephen Burke   05/05/95
      SUBROUTINE FPPBIN
C----------------------------------------------------                                                         
C                                                                                                             
C---  Initialize an array parray with probabilities                                                           
C---  for chisq versus number of degrees of freedom                                                           
C---  for ndf .lt. 20                                                                                         
C---  first bin n    1-1000 is chisq in n/16ths                                                               
C---  first bin n 1001-2000 is chisq in n/8ths                                                                
C---  for ndf .ge. 20 .and. ndf .le.50                                                                        
C---  first bin n    1-1000 is chisq in n/8ths                                                                
C---  first bin n 1001-2000 is chisq in n/4ths                                                                
C---  second bin is NDF 6-55                                                                                  
C---  if greater than 55 the prob function used directly                                                      
C                                                                                                             
C----------------------------------------------------                                                         
*