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