*-- 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                               *                                        
*                                                                    *                                        
**********************************************************************                                        
**********************************************************************                                        
      CALL FKISUM(NUM,NPL,NTOT,MAX)
C         IF (NUM(JPL).GT.0) CALL FKHIST(LUN,JPL,PCT,PMAX)                                                    
* Probably better to print them all                                                                           
         CALL FKHIST(LUN,JPL,PCT,PMAX)
*