Fortran date and time

[Ulrih]

Доброго всем времени суток!

Хотелось б знать, кто-нибудь знает как получить дату и время с помощью фортрановских функций.
Я знаю о функции date_and_time из стандартных библиотек, но ее работа меня не устраивает.
Я знаю о функции из библиотеки NAG. Но не имею доступа к наговским библиотекам (в данный момент).

Хотелось бы иметь результат в виде
call fdate(date,time[,etc])
переменные имели бы целочисленный тип с адрибутом intent(out) и были бы:
--- массив date(3) содержит дд мм гг - день месяц год
--- time(3) содержит чч мм сс - час минута секунда

Олег.

-- Пн дек 27, 2010 22:24:04 --

program test_time_and_date
integer,dimension(8) :: values
call date_and_time(VALUES=values)
print '(8i5))', values
end program test_time_and_date

И уже из массива values выбрать год и прочее..