*-- Author :    Stephen Burke   07/05/92
      SUBROUTINE FVTRUE(INFTKR)
*-----------------------------------------Updates 02/06/92-------                                             
**: FVTRUE.......SB. Change loop indices to please farm.                                                      
*-----------------------------------------Updates 06/05/92-------                                             
**: FVTRUE.......SB. New deck to mark tracks as primary/secondary.                                            
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Find true track numbers and write primary/secondary flag into      *                                        
* word 7 of FTKR row.                                                *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FVWBI.                                                                                                  
* Work bank indices                                                                                           
*KEEP,BCS.                                                                                                    
*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.                                                                                                        
**********************************************************************                                        
      CALL BKTOW(IW,BANK,0,IW,INFTPR,*1000)                                                            
*                                                                                                             
* Loop over forward tracks                                                                                    
*                                                                                                             
* Find true track                                                                                             
         CALL UTSTR(JDIGP,JDIGR,0,0,0,JMAX,NHIT,NPOSS)                                                 
            CALL ERRLOG(561,'S:FVTRUE: Funny FT digi list')                                            
* Overwrite IPTYPE (must be 2)                                                                                
* Must make sure work banks are dropped!!!                                                                    
      CALL WDROP(IW,INFTPR)                                                                            
 1000 CALL ERRLOG(562,'S:FVTRUE: Bank '//BANK//' not found')                                           
*