*-- Author : Girish D. Patel SUBROUTINE DMIN92(IDATE,ITIME,MIN92) *====================================================================== * Input: IDATE Run date (yymmdd) * ITIME Run time (hhmmss) * Output: MIN92 Elapsed minutes since midnight 0/1/92 * *====================================================================== DIMENSION IDY(0:10),IDM(0:11) DATA IDY /0,366,731,1096,1461,1827,2192,2557,2992,3288,3653/ DATA IDM /0,31,59,90,120,151,181,212,243,273,304,334/ JIN92 = 0 IF(IDATE.NE.0) THEN IYY = IDATE/10000 IMM = (IDATE - IYY*10000)/100 IDD = (IDATE - IYY*10000 - IMM*100) IHH = ITIME/10000 MIN = (ITIME - IHH*10000)/100 IF(IYY.GE.92) THEN IDD92 = IDY(IYY - 92) + IDM(IMM-1) + IDD ELSE IF(IYY.LE.10) THEN IDD92 = 2992 + IDY(IYY) + IDM(IMM-1) + IDD ELSE IDD92 = 0 WRITE(6,*) ' ** WARNING ** FTDEOR - Routine DMIN92 too OLD' ENDIF IF(MOD(IYY,4).EQ.0.AND.IMM.GT.2) IDD92 = IDD92 + 1 IF(IDD92.NE.0) JIN92 = ( IDD92*24 + IHH )*60 + MIN ELSE JIN92 = 0 ENDIF MIN92 = JIN92 RETURN END