*-- Author : Stephen Burke
      SUBROUTINE FTQUIC(NPCT,NRCT)
*-----------------------------------------Updates 07/09/93-------                                             
**: FTQUIC 40000 SB. New deck to give a guess at no. of tracks.                                               
*-----------------------------------------Updates----------------                                             
***************************************************************                                               
*                                                             *                                               
* Quick pattern recognition in the forward tracker            *                                               
*                                                             *                                               
* Input:                                                      *                                               
*   MINR - minimum number of hits to form a radial segment    *                                               
*                                                             *                                               
* Output:                                                     *                                               
*   NPCT - number of candidate tracks in planar supermodules  *                                               
*   NRCT - number of candidate tracks in radial supermodules  *                                               
*                                                             *                                               
*   NPCT and NRCT are arrays (0:2) indexed by supermodule no. *                                               
*                                                             *                                               
***************************************************************                                               
*KEEP,BCS.                                                                                                    
*KEEP,BOSMDL.                                                                                                 
C     ------BOSMDL                                                                                            
C     ------                                                                                                  
*KEND.                                                                                                        
*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                                             
*KEEP,FTFUNCT.                                                                                                
*     Statement functions for RADIAL Chamber data access.                                                     
*     Using Channel Number J                                                                                  
*     Module, Wedge-pair and Z-plane numbers...                                                               
*     Statement function for obtaining WEDGE numbers(0-47) of                                                 
*     wires at plus and minus ends of Cell numbers                                                            
*     Statement function for obtaining IOS wire number (1-36)                                                 
*     Statement functions for PLANAR Chamber data access.                                                     
*     Using Channel Number J                                                                                  
*     Module, orientation, W-cell and Z-plane numbers...                                                      
*     IPSMD in range 0:8 Planar module number.                                                                
*                                                                                                             
*     IOS wire number (runs from 0 to 36)                                                                     
* SB plane numbers (1-72) from cell number                                                                    
* Module, orientation, wire and (typical) cell number from plane                                              
* number in the range 1-72 (planars, radials and combined)                                                    
*KEND.                                                                                                        
***************************************************************                                               
* Module steering by MODULS                                                                                   
*KEEP,VERSQQ.                                                                                                 
*KEND.                                                                                                        
      CALL MODULS('FTQUIC',IVERSQ,'FRREFRPE')                                                          
* Get right bank versions for MC events...                                                                    
      CALL FSETMC
* Rebook B16 input bank formats for the farm                                                                  
       CALL BKFMT('FRRE','B16')
       CALL BKFMT('FRPE','B16')
       CALL SETREC                                                                                     
       CALL FPTINT
         CALL FPLOCO
         INFPHC = NLINK('FPHC',0)
            CALL VZERO(NPPOSS(0),9)                                                                    
         CALL FRLOCO
         INFRHC = NLINK('FRHC',0)
            CALL VZERO(NRCT(0),3)                                                                      
* Clean up                                                                                                    
C         CALL BGARB(IW)                                                                                      
C         CALL WGARB(IW)                                                                                      
      CALL FRSTMC
      CALL MODULF                                                                                      
*