VMS Help FORTRAN, Intrinsic Procedures, DATE_AND_TIME  *Conan The Librarian (sorry for the slow response - running on an old VAX)

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

  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:

   o  The "date" must be scalar and of type 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 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 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 an array of type INTEGER*4.
      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 year
        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).

  Example:

  Consider the following example executed on 1997 April 23 at
  13:23:30.5 in a timezone one hour later than UTC:

       INTEGER*4 DATE_TIME (8)
       CHARACTER*12 REAL_CLOCK (3)
       CALL DATE_AND_TIME (REAL_CLOCK (1), REAL_CLOCK (2),
      +                    REAL_CLOCK (3), DATE_TIME)

  This assigns the value '19970423' to REAL_CLOCK (1), the value
  '132330.500' to REAL_CLOCK (2), and the value '+0100' to REAL_CLOCK
  (3).  The following values are assigned to DATE_TIME:  1997, 4, 23,
  60, 13, 23, 30, and 500.