DATE_AND_TIME
— Date and time subroutineDATE_AND_TIME(DATE, TIME, ZONE, VALUES)
gets the corresponding date and
time information from the real-time system clock. DATE is
INTENT(OUT)
and has form ccyymmdd. TIME is INTENT(OUT)
and
has form hhmmss.sss. ZONE is INTENT(OUT)
and has form (+-)hhmm,
representing the difference with respect to Coordinated Universal Time (UTC).
Unavailable time and date parameters return blanks.
VALUES is INTENT(OUT)
and provides the following:
VALUE(1) : | The year
| |
VALUE(2) : | The month
| |
VALUE(3) : | The day of the month
| |
VALUE(4) : | Time difference with UTC in minutes
| |
VALUE(5) : | The hour of the day
| |
VALUE(6) : | The minutes of the hour
| |
VALUE(7) : | The seconds of the minute
| |
VALUE(8) : | The milliseconds of the second
|
CALL DATE_AND_TIME([DATE, TIME, ZONE, VALUES])
DATE | (Optional) The type shall be CHARACTER(LEN=8)
or larger, and of default kind.
|
TIME | (Optional) The type shall be CHARACTER(LEN=10)
or larger, and of default kind.
|
ZONE | (Optional) The type shall be CHARACTER(LEN=5)
or larger, and of default kind.
|
VALUES | (Optional) The type shall be INTEGER(8) .
|
program test_time_and_date character(8) :: date character(10) :: time character(5) :: zone integer,dimension(8) :: values ! using keyword arguments call date_and_time(date,time,zone,values) call date_and_time(DATE=date,ZONE=zone) call date_and_time(TIME=time) call date_and_time(VALUES=values) print '(a,2x,a,2x,a)', date, time, zone print '(8i5))', values end program test_time_and_date