DATE_AND_TIME ([date] [,time] [,zone] [,values])

  Class:  Subroutine

  Returns character data on the real-time clock and date in a form
  compatible with the representations defined in Standard ISO
  8601:1988.

  Optional arguments (all are INTENT(OUT)):

   o  The "date" must be scalar and of type default character; its
      length must be at least 8 to contain the complete value.  Its
      leftmost 8 characters are set to a value of the form CCYYMMDD,
      where:

        CC is the century
        YY is the year within the century
        MM is the month within the year
        DD is the day within the month

   o  The "time" must be scalar and of type default character; its
      length must be at least 10 to contain the complete value.  Its
      leftmost 10 characters are set to a value of the form
      hhmmss.sss, where:

        hh is the hour of the day
        mm is the minutes of the hour
        ss.sss is the seconds and milliseconds of the minute

   o  The "zone" must be scalar and of type default character; its
      length must be at least 5 to contain the complete value.  Its
      leftmost 5 characters are set to a value of the form + or -
      hhmm, where "hh" and "mm" are the time difference with respect
      to Coordinated Universal Time (UTC) in hours and parts of an
      hour expressed in minutes, respectively.

   o  The "values" must be of type default integer and of rank one.
      Its size must be at least 8.  The values returned in "values"
      are as follows:

        values (1) is the 4-digit year
        values (2) is the month of the year
        values (3) is the day of the month
        values (4) is the time difference with respect to
                   Coordinated Universal Time (UTC) in minutes
        values (5) is the hour of the day (range 0 to 23)
        values (6) is the minutes of the hour (range 0 to 59).
        values (7) is the seconds of the minute (range 0 to 59).
        values (8) is the milliseconds of the second (range 0 to 999).

      VALUES (5) through (8) are in local time.

  Example:

  Consider the following example executed on 2000 March 28 at
  11:04:14.5:

  INTEGER DATE_TIME (8)
  CHARACTER (LEN = 12) REAL_CLOCK (3)
  CALL DATE_AND_TIME (REAL_CLOCK (1), REAL_CLOCK (2), &
                      REAL_CLOCK (3), DATE_TIME)

  This assigns the value "20000328" to REALCLOCK (1), the value
  "110414.500" to REALCLOCK (2), and the value "-0500" to REALCLOCK
  (3).  The following values are assigned to DATETIME:  2000, 3, 28,
  -300, 11, 4, 14, and 500.