8.121 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