[ новости /+++ | форум | теги | ]

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 -lV77flag, links with the VMS versions of
     idate() and time().

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

Партнёры:

Хостинг: