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

Museum