SUBROUTINE FPPBIN
*-- 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----------------------------------------------------                                                         
      COMMON/FPBCOM/PARRAY(1800,50)                                     
                                                                        
      DO 300 J=2,51                                                     
         IF (J.LT.20) THEN                                              
            NFACT1 = 16                                                 
            NFACT2 = 8                                                  
         ELSE                                                           
            NFACT1 = 8                                                  
            NFACT2 = 4                                                  
         ENDIF                                                          
         DO 100 I=1,1000                                                
            PARRAY(I,J-1) = PROB(FLOAT(I)/NFACT1,J)                     
 100     CONTINUE                                                       
         DO 200 I=501,1300                                              
            PARRAY(I+500,J-1) = PROB(FLOAT(I)/NFACT2,J)                 
 200     CONTINUE                                                       
 300  CONTINUE                                                          
                                                                        
      RETURN                                                            
      END                                                               
*