home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / datime.for < prev    next >
Text File  |  1990-11-11  |  862b  |  32 lines
  1.       SUBROUTINE DATIME(D,T)
  2.       
  3. C  RETURN THE DATE AND TIME IN D AND T.  D IS NUMBER OF DAYS SINCE 01-JAN-78,
  4. C  T IS MINUTES PAST MIDNIGHT.
  5.  
  6.       IMPLICIT INTEGER*2 (A-Z)
  7.       INTEGER*2 X,YEAR
  8.       INTEGER*4 D,T
  9.       REAL XX,SECNDS
  10.       DIMENSION DAT(2),MONTHS(12),HATH(12)
  11.       DATA MONTHS/1,2,3,4,5,6,7,8,9,10,11,12/
  12.       DATA HATH /31,28,31,30,31,30,31,31,30,31,30,31/
  13.       
  14. C     CALL IDATE(X,ID,YEAR)
  15. C     XX=SECNDS(0.)/60.
  16.       CALL GETDAT(YEAR,X,ID)
  17.       CALL GETTIM(IHR,IMIN,ISEC,I100TH)
  18.       XX=60.*IHR+IMIN+(ISEC+I100TH/100.)/60.
  19.       D=ID
  20.       T=XX
  21.       
  22.       DO 1 MON=1,12
  23.       IF(X.EQ.MONTHS(MON)) GOTO 2
  24.     1 D=D+HATH(MON)
  25.       CALL BUG(28)
  26.       
  27. C   2 D=D+(YEAR-78)*365+(YEAR-78)/4
  28.     2 D=D+(YEAR-1978)*365+(YEAR-1978)/4
  29.       IF(MOD(YEAR,4).EQ.0.AND.MON.GT.2) D=D+1
  30.       RETURN
  31.       END
  32.