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

  IDATE (month,day,year)

  A subroutine that returns three values representing the current
  date.  The arguments must be defined as integers or integer array
  elements.  The month is represented as the number of the month (1 -
  12).  The day is represented as the day of the month.  The year is
  represented as the last two digits of the year.