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