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