*-- Author : S.J. Maxfield
      SUBROUTINE FPTVER
*========================================================                                                     
* Location of interaction point for the run.                                                                  
* Dummy routine for now. Eventually get vertex from database?                                                 
* Get from elsewhere for Monte Carlo?                                                                         
*========================================================                                                     
*                                                                                                             
*KEEP,BCS.                                                                                                    
*KEEP,FPTVTX.                                                                                                 
**the common/VERTEX/ becomes /VERTVV/ (in analogy to /VERTFF/) on the                                         
** 17/6/91, since it is in conflict with the VERTEX module (g.bernardi)                                       
** (note that all these common names should start by F in this deck...)                                       
*KEEP,STFUNCT.                                                                                                
*     index of element before row number IROW                                                                 
*     index of L'th element  of row number IROW                                                               
*     L'th integer element of the IROW'th row of bank with index IND                                          
*     L'th real element of the IROW'th row of bank with index IND                                             
*KEND.                                                                                                        
* Wrong NUMWPL changed in previous correction                                                                 
*