*-- Author : Girish Patel 11/11/96 SUBROUTINE FDBGET(IRUN,PV,PT0,RV,RT0,IRET) C ------BOSMDL LOGICAL BEGJOB,ENDRUN,BEGRUN,REVENT,ENDJOB,OTHDAT COMMON/BOSMDL/BEGJOB,ENDRUN,BEGRUN,REVENT,ENDJOB,OTHDAT, + LCCRUN,NCCRUN,NEVENT, + IHA,IBS,IDB,IDATEL,LUP,ISN,JSN SAVE /BOSMDL/ C ------ INTEGER NHROW,NHCOL,NHLEN PARAMETER (NHROW = 2, NHCOL = 1, NHLEN=2) INTEGER NBOSIW PARAMETER (NBOSIW=1000000) INTEGER IW(NBOSIW) REAL RW(NBOSIW) COMMON /BCS/ IW EQUIVALENCE (RW(1),IW(1)) SAVE /BCS/ IROLD = NCCRUN NCCRUN = IRUN IRET=1 INF0R8=IABS(MDB('F0R8')) INF0P8=IABS(MDB('F0P8')) INFCP1=IABS(MDB('FCP1')) NCCRUN = IROLD IF(INF0R8.GT.0.and.INF0P8.GT.0.and.INFCP1.GT.0) THEN PT0 = RW(INF0P8+3)*0.1923077 PV = RW(INFCP1+4) RT0 = RW(INF0R8+3)*0.1923077 IF(IRUN.LT.92800) THEN RV = RW(INF0R8+6)/0.0000211475 ELSE RV = RW(INF0R8+6)/0.0000210633 ENDIF IRET = 0 ENDIF RETURN END