Man Page idate.3f

NAME

     idate - return date in numerical form

SYNOPSIS

     idate has a standard version and a VMS version:

     subroutine idate(iarray)
     integer*4 iarray(3)
          is the standard version

     subroutine idate(m, d, y)
     integer*4 m, d, y
           is the VMS version

     YEAR 2000 ALERT: The VMS version IS NOT Y2K SAFE.
     Since idate in VMS mode returns a 2-digit  year,  it  should
     not  be  used  to  compare  dates  without  taking this into
     account. Routines fdate(3f) and date_and_time(3f) do  return
     4-digit years and could be used instead.

     Because idate is not Y2K safe, programs using  this  routine
     in  VMS  mode  will generate warning messages at compilation
     and execution.

DESCRIPTION

     Standard Version

       The idate  subroutine  puts  the  current  date  into  the
       integer  array  iarray.   The  order is: day, month, year.
       The month is in the range 1-12.  The year is four  digits,
       such as 1997, or 2001.

       Example:

       demo% cat  ida2.f
            integer*4  a(3)
            call  idate( a )
            write(*, "(' The date is: ',3i5)" ) a
            end
       demo% f77 -silent  ida2.f
       demo% a.out
        The date is:   23    1 1997
       demo%

     VMS Version (compile with -lV77flag):

       The idate  subroutine  puts  the  current  date  into  the
       integers m, d, and y.
       VMS version allows only 2 digits. This is  NOT  Y2K  SAFE.
       Example:
       demo% cat ida1.f
            integer*4  m,  d,  y
            call idate( m, d, y )
            write(*, "(' The date is: ',3i3)" ) m, d, y
            end
       demo% f77 ida1.f  -lV77
       ida1.f:
        MAIN:
       "ida1.f", line 2: Warning: Subroutine "idate" is not safe
          after year 2000; use "date_and_time" instead
       demo% a.out
       Computing time differences using the 2 digit year from
          subroutine idate is not safe after year 2000.
        The date is:   7 23 97
       demo%

FILES

     libF77.a, libV77.a

NOTE

     Compiling with the f77 compiler -lV77flag,  links  with  the
     VMS versions of idate() and time().  (f77 only)

SEE ALSO

     date(3f), fdate(3F), date_and_time(3F), and the  FORTRAN  77
     Reference Manual