IDATE (The GNU Fortran Compiler)

### 8.151 `IDATE` — Get current local time subroutine (day/month/year) ¶

Synopsis:

  `CALL IDATE(VALUES)`

Description:

  `IDATE(VALUES)` Fills VALUES with the numerical values at the current local time. The day (in the range 1-31), month (in the range 1-12), and year appear in elements 1, 2, and 3 of VALUES, respectively. The year has four significant digits.

  This intrinsic routine is provided for backwards compatibility with GNU Fortran 77. In new code, programmers should consider the use of the `DATE_AND_TIME` — Date and time subroutine intrinsic defined by the Fortran 95 standard.

Class:

  Subroutine

Arguments:

  VALUES | The type shall be `INTEGER, DIMENSION(3)` and the kind shall be the default integer kind.

Return value:

  Does not return anything.

Example:

      program test_idate
        integer, dimension(3) :: tarray
        call idate(tarray)
        print *, tarray(1)
        print *, tarray(2)
        print *, tarray(3)
      end program test_idate

Standard:

  GNU extension

See also:

  `DATE_AND_TIME` — Date and time subroutine