SUBROUTINE FDBGTL
*-- Author :    Girish Patel   11/11/96
      SUBROUTINE FDBGTL(IRUN,ALOR,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'))                                          
      NCCRUN = IROLD                                                    
      IF(INF0R8.GT.0) THEN                                              
         ALOR= RW(INF0R8+13)                                            
         IRET = 0                                                       
      ENDIF                                                             
      RETURN                                                            
      END                                                               
*