C
      SUBROUTINE TINC2(IHRMNS,IDAYS,MONS,IYEARS,IHRMNF,IDAYF,MONF,  
     & IYEARF,RMIN,IER,LU)
C                 
C  AUTHOR   : D.GORHAM
C  DATE     : 4-MAR-83
C  TITLE    : GIVEN START TIME/DATE AND NO. OF MINUTE INTERVALS 
C             FINISH TIME/DATE
C  REV.01   : 22-SEP-83 BY DJG: MODIFIED FOR VAX
C  REV.02   : 21-FEB-84 BY DJG: MODIFIED SUCH THAT IF 'RMIN' IS
C	      NEGATIVE CORRECT TIME IS ALWAYS RETURNED
C                 
      INTEGER*4 EGDS,EGDF
      CALL GDATE(1,MONS,IDAYS,IYEARS,IDWK,IDYR,IDMON,EGDS,IER,LU)  
      IF(IER.EQ.0) GO TO 10 
      IF(LU.EQ.0) GO TO 10
      WRITE(LU,1000)
1000  FORMAT(' **ERROR CALLING START DATE/TIME IN ROUTINE TINC2') 
C
10	IHRS=IHRMNS/100
	MINS=IHRMNS-IHRS*100
	TMINS=RMIN+MINS+IHRS*60
	ITMINS=TMINS
	NDAYS=ITMINS/1440
	IREM=ITMINS-NDAYS*1440
	NHRS=IREM/60
	NMINS=IREM-NHRS*60
C
	IF(NMINS.LT.0) THEN
	  NHRS=NHRS-1
	  NMINS=60+NMINS
	END IF
C
	IF(NHRS.LT.0) THEN
	  NDAYS=NDAYS-1
	  NHRS=24+NHRS
	END IF
C
	EGDF=EGDS+NDAYS
	IHRMNF=NHRS*100+NMINS
        print *,rmin,nhrs,nmins
C
      CALL GDATE(2,MONF,IDAYF,IYEARF,IDWK,IDYR,IDMON,EGDF,IER,LU)!M.W.S.
      IF(IER.EQ.0) GO TO 40 
C
      WRITE(LU,1100)
1100  FORMAT(' **ERROR CALLING FINISH DATE/TIME IN ROUTINE TINC2')
40    RETURN      
      END