IDATE(3F) — FORTRAN LIBRARY ROUTINES

NAME

idate − return date in numerical form

SYNOPSIS

For idate there is a standard version and a VMS version.
Standard. Without the −lV77 compiler option, you get the standard version:

subroutine idate(iarray)
integer iarray(3)

VMS. With the −lV77 compiler option, you get the VMS version:

subroutine idate(m, d, y)
integer m, d, y

DESCRIPTION

Standard Version (Without −lV77)

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 4-digits, as 1993.
Example:

demo% cat ida2.f
integer 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 93
demo%

VMS Version (With −lV77)

The idate subroutine puts the current date into the integers m, d, and y.
Example:

demo% cat ida1.f
integer m, d, y
call idate( m, d, y )
write(∗, "(’ The date is: ’,3i3)" ) m, d, y
end
demo% f77 −silent ida1.f −lV77
demo% a.out
The date is: 7 23 89
demo%

FILES

libF77.a, libV77.a

NOTE

If you use −lV77, then invoking idate() or time() gets the VMS version.

Museum