Next: , Previous: CTIME, Up: Intrinsic Procedures


8.38 DATE_AND_TIME — Date and time subroutine

Description:
DATE_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

Option:
f95, gnu
Class:
subroutine
Syntax:
CALL DATE_AND_TIME([DATE, TIME, ZONE, VALUES])
Arguments:

DATE (Optional) The type shall be CHARACTER(8) or larger.
TIME (Optional) The type shall be CHARACTER(10) or larger.
ZONE (Optional) The type shall be CHARACTER(5) or larger.
VALUES(Optional) The type shall be INTEGER(8).

Return value:
None
Example:
          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