*-- Author :    Stephen Burke   07/05/92
      SUBROUTINE FVTEXT
*-----------------------------------------Updates 21/09/93-------                                             
**: FVTEXT.......SB. Turn off momentum cuts for zero field.                                                   
*-----------------------------------------Updates 30/10/92-------                                             
**: FVTEXT.......SB. Separate cuts on # of planar/radial hits.                                                
**: FVTEXT.......SB. FVRP steering bank format changed.                                                       
*-----------------------------------------Updates 06/05/92-------                                             
**: FVTEXT.......SB. New steering banks FVRS and FVRP from db:                                                
*!: FVRP  .......SB. New steering bank for forward z-vertex fit.                                              
*!: FVRS  .......SB. New steering bank for forward z-vertex fit.                                              
**: FVTEXT.......SB. New deck to read z-vertex fit steering banks.                                            
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Read parameters from steering banks                                *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FVSTEE.                                                                                                 
*KEEP,FVPAR.                                                                                                  
*KEEP,BCS.                                                                                                    
*KEND.                                                                                                        
**********************************************************************                                        
* Get the steering bank                                                                                       
      CALL UGTBNK('FVRS',INDS)
            CALL ERRLOG(551,'F:FVTEXT: Wrong version of bank FVRS;'//                                  
         CALL ERRLOG(552,'W:FVTEXT: Bank FVRS not found;'//                                            
* Decode the histogram steering                                                                               
* Get the parameter bank                                                                                      
      CALL UGTBNK('FVRP',INDP)
            CALL ERRLOG(553,'F:FVTEXT: Wrong version of bank FVRP;'//                                  
         CALL ERRLOG(554,'W:FVTEXT: Bank FVRP not found;'//                                            
* Don't cut on momentum if field is too small                                                                 
      CALL VZERO(R,3)                                                                                  
      CALL GUFLD(R,B)                                                                                  
* Check print flag                                                                                            
*