SUBROUTINE FKPRHS
*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKPRHS(LUN,CMESS,NUM,NPL)
*-----------------------------------------Updates 07/02/92-------                                             
**: FKPRHS 30205.SB. Change FKISUM to subroutine to please UNDEF.                                             
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Print out point rejection histograms                               *                                        
*                                                                    *                                        
**********************************************************************                                        
                                                                        
      DIMENSION NUM(NPL)                                                
                                                                        
      CHARACTER*(*) CMESS                                               
                                                                        
**********************************************************************                                        
                                                                        
      CALL FKISUM(NUM,NPL,NTOT,MAX)
                                                                        
      IF (NTOT.LE.0) RETURN                                             
                                                                        
      WRITE(LUN,*)                                                      
      WRITE(LUN,*) CMESS                                                
      WRITE(LUN,*)                                                      
                                                                        
      PMAX = 200.D0*MAX/NTOT                                            
      DO 100 JPL=1,NPL                                                  
         PCT = 100.D0*NUM(JPL)/NTOT                                     
C         IF (NUM(JPL).GT.0) CALL FKHIST(LUN,JPL,PCT,PMAX)                                                    
* Probably better to print them all                                                                           
         CALL FKHIST(LUN,JPL,PCT,PMAX)
 100  CONTINUE                                                          
                                                                        
      RETURN                                                            
      END                                                               
*