SUBROUTINE  : FVZWM(INFTKR,NFTKR,ZNOM,LFIRST,FVVEC,IERR)
 
AUTHOR : Stephen Burke
 
DATE : 07/05/92
 
LANGUAGE : FORTRAN
 
SHORT SUMMARY of PURPOSE:                                                
                                                                                
   Calculate z-vertex by weighted mean                                          
                                                                                
LIST and DESCRIPTION of INPUT VARIABLES/ARGUMENTS:                       
                                                                                
   INFTKR - FTKR bank index                         
   NFTKR  - The number of FTKR rows (= size of work bank)                       
   ZNOM   - the nominal z-vertex position                                       
   LFIRST - TRUE for the first call (primary vertex)                            
                                                                                
LIST and DESCRIPTION of OUTPUT VARIABLES/ARGUMENTS:                      
                                                                                
   FVVEC - the four words of the FTGR bank          
   IERR  - non-zero if the weighted mean fails                                  
                                                                                
 
CALLING TREE from FVZWM :
 
None
 
FUNCTIONS USED :
 
None
 
KEEP SEQUENCES USED :
 
 FVSTEE FVPAR FVSCAL FVWBI BCS STFUNCT                                                                        
 

Comments from FVZWM