You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
1.2 KiB
Plaintext
50 lines
1.2 KiB
Plaintext
5 years ago
|
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
|