DATE_AND_TIME

 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.