Next: DBLE, Previous: CTIME, Up: Intrinsic Procedures [Contents][Index]
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 | 
Fortran 95 and later
Subroutine
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). | 
None
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
Next: DBLE, Previous: CTIME, Up: Intrinsic Procedures [Contents][Index]