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