SUBROUTINE FTRNDB
*-- Author :    Girish Patel   11/11/96
      SUBROUTINE FTRNDB(NRUN)
      DIMENSION BVEC(8)                                                 
      CHARACTER*8  NAMED(8)                                             
      DATA NAMED/'Run_numb',                                            
     +           'Pv      ','Pt0     ','Rv      ','Rt0     ',           
     +           'Alor    ','TanAlor ','Alordeg '/                      
      LOGICAL FIRST /.FALSE./                                           
                                                                        
      CALL SAREA('FTDSGI',0)                                                                           
                                                                        
      IF(FIRST) THEN                                                    
        FIRST=.FALSE.                                                   
        CALL BNT( 5, 0,     8, NAMED)                                                                  
      ENDIF                                                             
      BVEC(1) = NRUN                                                    
                                                                        
      CALL FDBGET(NRUN,PV,PT0,RV,RT0,IRET)
      IF(IRET.EQ.0) THEN                                                
        BVEC(2) = PV                                                    
        BVEC(3) = PT0                                                   
        BVEC(4) = RV                                                    
        BVEC(5) = RT0                                                   
      ELSE                                                              
        WRITE(6,*) ' FTRNDB>> FDBGET failed for run ',NRUN              
        BVEC(2) = 0.0                                                   
        BVEC(3) = 0.0                                                   
        BVEC(4) = 0.0                                                   
        BVEC(5) = 0.0                                                   
      ENDIF                                                             
                                                                        
      CALL FDBGTL(NRUN,ALOR,IRET)
      IF(IRET.EQ.0) THEN                                                
        BVEC(6) = ALOR                                                  
        BVEC(7) = TAN(ALOR)                                             
        BVEC(8) = ALOR*57.29577951                                      
      ELSE                                                              
        WRITE(6,*) ' FTRNDB>> FDBGTL failed for run ',NRUN              
        BVEC(6) = 0.0                                                   
        BVEC(7) = 0.0                                                   
        BVEC(8) = 0.0                                                   
      ENDIF                                                             
                                                                        
      CALL SVEC(5,0,BVEC)                                                                              
                                                                        
      CALL SAREA('FTREC',1)                                                                            
                                                                        
      RETURN                                                            
      END