*-- Author :    Stephen Burke   07/05/92
      SUBROUTINE FVHBK(CDIR)
*-----------------------------------------Updates 30/10/92-------                                             
**: FVHBK .......SB. New debug histograms/numbers.                                                            
*-----------------------------------------Updates 06/05/92-------                                             
**: FVHBK .......SB. New deck to book z-vertex diagnostic histograms.                                         
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Book diagnostic histograms                                         *                                        
*                                                                    *                                        
**********************************************************************                                        
                                                                        
      CHARACTER*(*) CDIR                                                
                                                                        
*KEEP,FVSTEE.                                                                                                 
      LOGICAL LTRUTH,LCUT,LRESID                                        
      COMMON /FVSTEE/ IDIAG,LUN,LUNHB,LTRUTH,LCUT,LRESID                
*KEND.                                                                                                        
                                                                        
**********************************************************************                                        
                                                                        
      CALL HCDIR('//PAWC',' ')                                                                         
      CALL HMDIR(CDIR,'S')                                                                             
                                                                        
      IF (LRESID) THEN                                                  
         CALL HBOOK1(100,'CT Z-RESOLUTION$',100,-10.,10.,0.)                                           
         CALL HBOOK1(101,'Z RESOLUTION$',100,-10.,10.,0.)                                              
         CALL HBOOK1(102,'PULL ON Z$',100,-5.,5.,0.)                                                   
         CALL HBOOK1(103,'TRUE P(CHISQ)$',100,0.,1.,0.)                                                
      ENDIF                                                             
                                                                        
      IF (LCUT) THEN                                                    
         CALL HBOOK1(201,'NHITP (PRIMARY)$',73,0.,73.,0.)                                              
         CALL HBOOK1(202,'NHITP (SECONDARY)$',73,0.,73.,0.)                                            
         CALL HBOOK1(203,'NHITR (PRIMARY)$',73,0.,73.,0.)                                              
         CALL HBOOK1(204,'NHITR (SECONDARY)$',73,0.,73.,0.)                                            
         CALL HBOOK1(205,'ZSQ (PRIMARY)$',100,0.,10000.,0.)                                            
         CALL HBOOK1(206,'ZSQ (SECONDARY)$',100,0.,10000.,0.)                                          
         CALL HBOOK1(207,'P (PRIMARY)$',100,0.,10.,0.)                                                 
         CALL HBOOK1(208,'P (SECONDARY)$',100,0.,10.,0.)                                               
         CALL HBOOK1(209,'DCA (PRIMARY)$',100,0.,20.,0.)                                               
         CALL HBOOK1(210,'DCA (SECONDARY)$',100,0.,20.,0.)                                             
         CALL HBOOK1(211,'Z0 (PRIMARY)$',100,-50.,50.,0.)                                              
         CALL HBOOK1(212,'Z0 (SECONDARY)$',100,-50.,50.,0.)                                            
         CALL HBOOK1(213,'CHI (PRIMARY)$',100,0.,20.,0.)                                               
         CALL HBOOK1(214,'CHI (SECONDARY)$',100,0.,20.,0.)                                             
         CALL HBOOK1(300,'FRACTION OF TRACKS PRIMARY$',100,0.,1.,0.)                                   
      ENDIF                                                             
                                                                        
      CALL HBPRO(0,0.)                                                                                 
      CALL HMINIM(0,0.)                                                                                
      CALL HIDOPT(0,'INTE')                                                                            
                                                                        
      CALL HCDIR('//PAWC',' ')                                                                         
                                                                        
      RETURN                                                            
      END                                                               
*