*-- Author :    Stephen J. Maxfield   10/09/92
      SUBROUTINE FEFFIC
*                                                                                                             
*     Estimate radial segment finding efficiency                                                              
*                                                                                                             
*KEEP,BCS.                                                                                                    
*KEEP,BOSMDL.                                                                                                 
C     ------BOSMDL                                                                                            
C     ------                                                                                                  
*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.                                                                                                        
*                                                                                                             
*     Locate FRSX bank - one of these per pattern recognised track...                                         
      INDPSX = NLINK('FPSX',0)
      INDPSG = NLINK('FPSG',0)
      INDRSX = NLINK('FRSX',0)
      INDRSG = NLINK('FRSG',0)
*      Row of first planar segment on track...                                                                
*      Row of second segment on track...                                                                      
*       Two-module track. Extract Track data...                                                               
*       Write(6,*) ' FEFFIC >> Two-P seg track found'                                                         
*       radial sandwich config...                                                                             
        CALL SHS(2010,0,1.1)                                                                           
*       Look for appropriate radial segment...                                                                
*       Row of first radial segment on track...                                                               
           CALL SHS(2010,0,2.1)                                                                        
*          Row of second segment on track...                                                                  
              CALL SHS(2010,0,2.1)                                                                     
                 CALL SHS(2010,0,2.1)                                                                  
*       Three Module track. Nice...                                                                           
        CALL SHS(2010,0,1.1)                                                                           
        CALL SHS(2010,0,1.1)                                                                           
*       Look for appropriate radial segments...                                                               
*       Row of first radial segment on track...                                                               
           CALL SHS(2010,0,2.1)                                                                        
*          Row of second segment on track...                                                                  
              CALL SHS(2010,0,2.1)                                                                     
                 CALL SHS(2010,0,2.1)                                                                  
*                                                                                                             
        CALL SHS(2001,0,EFF)                                                                           
*