9.144 IDATE — Get current local time subroutine (day/month/year)

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 intrinsic defined by the Fortran 95 standard.

Standard:

GNU extension

Class:

Subroutine

Syntax:

CALL IDATE(VALUES)

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
See also:

DATE_AND_TIME

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-11.1.0/gfortran/IDATE.html