SUBROUTINE  : FPTVER
 
AUTHOR : S.J. Maxfield
 
DATE : 12/12/90
 
LANGUAGE : FORTRAN
 
SHORT SUMMARY of PURPOSE:                                                
                                                                                
  Provides location of primary vertex for radial segment finding                
  code. Presently returns 0,0,0 but should in future return the                 
  generated value for MC                                                        
                                                                                
LIST and DESCRIPTION of INPUT VARIABLES/ARGUMENTS:                       
                                                                                
  None at present / SVX bank in future?                                         
                                                                                
LIST and DESCRIPTION of OUTPUT VARIABLES/ARGUMENTS:                      
                                                                                
  Returns vertex via common FPTVTX                                              
                                                                                
 
CALLING TREE from FPTVER :
 
None
 
FUNCTIONS USED :
 
None
 
KEEP SEQUENCES USED :
 
 BCS FPTVTX STFUNCT                                                                                           
 

 
Comments from FPTVER