2 C*********************************************************************
5 C...Finds current date and time.
6 C...Since this task is not standardized in Fortran 77, the routine
7 C...is dummy, to be replaced by the user. Examples are given for
8 C...the Fortran 90 routine DEC Fortran 77, GNU Linux g77, and what to
9 C...do if you do not have access to suitable routines.
11 SUBROUTINE PYTIME(IDATI)
13 C...Double precision and integer declarations.
14 IMPLICIT DOUBLE PRECISION(A-H, O-Z)
16 C INTEGER PYK,PYCHGE,PYCOMP
19 INTEGER IDATI(6),IDTEMP(3)
21 C...Example 0: if you do not have suitable routines.
26 C...Example 1: Fortran 90 routine.
28 C CALL DATE_AND_TIME(VALUES=IVAL)
36 C...Example 2: DEC Fortran 77. AIX.
37 C CALL IDATE(IMON,IDAY,IYEAR)
41 C CALL ITIME(IHOUR,IMIN,ISEC)
46 C...Example 3: DEC Fortran, IRIX, IRIX64.
47 C CALL IDATE(IMON,IDAY,IYEAR)
55 C READ(ATIME(1:2),'(I2)') IHOUR
56 C READ(ATIME(4:5),'(I2)') IMIN
57 C READ(ATIME(7:8),'(I2)') ISEC
62 C...Example 4: GNU LINUX libU77, SunOS.
72 C...Common code to ensure right century.
73 IDATI(1)=2000+MOD(IDATI(1),100)