*-- Author :    Girish Patel   11/11/96
      SUBROUTINE FTRNDB(NRUN)
      CALL SAREA('FTDSGI',0)                                                                           
        CALL BNT( 5, 0,     8, NAMED)                                                                  
      CALL FDBGET(NRUN,PV,PT0,RV,RT0,IRET)
      CALL FDBGTL(NRUN,ALOR,IRET)
      CALL SVEC(5,0,BVEC)                                                                              
      CALL SAREA('FTREC',1)