SUBROUTINE FVBKLK
*-- Author :    Stephen Burke   07/05/92
      SUBROUTINE FVBKLK
*-----------------------------------------Updates 07/09/93-------                                             
**: FVBKLK 40000 SB. Change scale on xy vertex histos.                                                        
*-----------------------------------------Updates 26/07/93-------                                             
**: FVBKLK 30907 SB. Change monitoring histograms.                                                            
*-----------------------------------------Updates 02/06/93-------                                             
**: FVBKLK 30907 SB. Vertex monitoring histograms added.                                                      
*-----------------------------------------Updates 29/07/92-------                                             
**: FVBKLK 30907 SB. Binning changed, two new histograms.                                                     
*-----------------------------------------Updates 06/05/92-------                                             
**: FVBKLK 30907 SB. New deck to book z-vertex monitoring histograms.                                         
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Book monitoring histograms for the forward z-vertex fit            *                                        
*                                                                    *                                        
**********************************************************************                                        
                                                                        
      CALL BHS(21,0,50,0.,50.)                                                                         
      CALL STEXT(21,4,'Vertex fitted forward tracks/event')                                            
                                                                        
      CALL BHS(22,0,60,-120.,120.)                                                                     
      CALL STEXT(22,4,'Fitted z-vertex')                                                               
                                                                        
      CALL BHS(23,0,60,0.,30.)                                                                         
      CALL STEXT(23,4,'Error on z-vertex')                                                             
                                                                        
      CALL BHS(24,0,60,0.,12.)                                                                         
      CALL STEXT(24,4,'Chi-squared/DOF of z-vertex fit')                                               
                                                                        
      CALL BHS(25,0,50,0.,1.)                                                                          
      CALL STEXT(25,4,'Chi-squared probability of z-vertex fit')                                       
                                                                        
      CALL BHS(26,0,60,0.,6.)                                                                          
      CALL STEXT(26,4,'Raw dca')                                                                       
                                                                        
      CALL BHS(27,0,60,-120.,120.)                                                                     
      CALL STEXT(27,4,'Raw z0')                                                                        
                                                                        
      CALL BHS(28,0,60,-30.,30.)                                                                       
      CALL STEXT(28,4,'z(FT) - z(CT)')                                                                 
                                                                        
      CALL BHS(29,0,60,-12.,12.)                                                                       
      CALL STEXT(29,4,'Delta-z/error')                                                                 
                                                                        
      CALL BHS(30,0,60,-1.2,1.2)                                                                       
      CALL STEXT(30,4,'x vertex (-z)')                                                                 
                                                                        
      CALL BHS(31,0,60,-1.2,1.2)                                                                       
      CALL STEXT(31,4,'x vertex (0)')                                                                  
                                                                        
      CALL BHS(32,0,60,-1.2,1.2)                                                                       
      CALL STEXT(32,4,'x vertex (+z)')                                                                 
                                                                        
      CALL BHS(33,0,60,-1.2,1.2)                                                                       
      CALL STEXT(33,4,'y vertex (-z)')                                                                 
                                                                        
      CALL BHS(34,0,60,-1.2,1.2)                                                                       
      CALL STEXT(34,4,'y vertex (0)')                                                                  
                                                                        
      CALL BHS(35,0,60,-1.2,1.2)                                                                       
      CALL STEXT(35,4,'y vertex (+z)')                                                                 
                                                                        
      CALL BHS(41,0,50,0.,50.)                                                                         
      CALL STEXT(41,4,'Tracks/event for secondary vertices')                                           
                                                                        
      CALL BHS(42,0,60,-120.,120.)                                                                     
      CALL STEXT(42,4,'Secondary z-vertex')                                                            
                                                                        
      CALL BHS(43,0,60,0.,30.)                                                                         
      CALL STEXT(43,4,'Error on secondary z-vertex')                                                   
                                                                        
      CALL BHS(44,0,60,0.,12.)                                                                         
      CALL STEXT(44,4,'Chi-squared/DOF for secondary z-vertex')                                        
                                                                        
      CALL BHS(45,0,50,0.,1.)                                                                          
      CALL STEXT(45,4,'Chi-squared probability for secondary z-vertex')                                
                                                                        
      RETURN                                                            
      END                                                               
*