*-- Author : Stephen Burke
      SUBROUTINE FKHPR
*-----------------------------------------Updates 07/02/92-------                                             
**: FKHPR 30205.SB.  Remove unused FKMEAS sequence.                                                           
*-----------------------------------------Updates 24/01/92-------                                             
**: FKHPR 30205.SB.  Print histograms only if they exist.                                                     
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Print diagnostic histograms                                        *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FKNPL.                                                                                                  
*                                                                                                             
* Per-track values can go in H1WORK; note that LTRUE and LFIRST must                                          
* be set at least per event.                                                                                  
*                                                                                                             
* This is about 36k words long; the remaining common blocks are                                               
* about 3.6k in total. Some of this could be in /H1WORK/, but the                                             
* blocks would have to be reorganised.                                                                        
*                                                                                                             
* /FKPROJ/                                                                                                    
* /FKFILT/                                                                                                    
* /FKSMTH/                                                                                                    
* /FKINT/                                                                                                     
* /FKRSID/                                                                                                    
* /FKTRUE/                                                                                                    
* /FKDBG/                                                                                                     
*KEEP,FFSTEE.                                                                                                 
*KEEP,FKTRUE.                                                                                                 
*KEEP,FKHIST.                                                                                                 
*KEEP,FKDBG.                                                                                                  
*KEND.                                                                                                        
**********************************************************************                                        
      CALL HCDIR('//PAWC/'//CKDBG,' ')                                                                 
         IF (HEXIST(I)) CALL HPRINT(I)                                                                 
         IF (HEXIST(I)) CALL HPRINT(I)                                                                 
         IF (HEXIST(I)) CALL HPRINT(I)                                                                 
         IF (HEXIST(IPL+500)) CALL HPRINT(IPL+500)                                                     
         IF (HEXIST(IPL+600)) CALL HPRINT(IPL+600)                                                     
         IF (HEXIST(IPL+700)) CALL HPRINT(IPL+700)                                                     
         IF (HEXIST(IPL+800)) CALL HPRINT(IPL+800)                                                     
     &      CALL HPRINT(IPL+900)                                                                       
      CALL HCDIR('//PAWC',' ')                                                                         
*