9.136 IDATE — Получение текущего локального времени подпрограммой (день/месяц/год)

Описание:

IDATE(VALUES) Заполняет VALUES числовыми значениями текущего локального времени. День (в диапазоне 1-31), месяц (в диапазоне 1-12) и год отображаются в элементах 1, 2 и 3 VALUES соответственно. Год имеет четыре значащих цифры.

Стандарт:

Расширение GNU

Класс:

Подпрограмма

Синтаксис:

CALL IDATE(VALUES)

Аргументы:

VALUES

Тип должен быть INTEGER, DIMENSION(3), а вид — по умолчанию целого типа.

Возвращаемое значение:

Ничего не возвращает.

Пример:

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