*-- 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