DATE(3I) Last changed: 1-6-98
NAME
DATE, JDATE - Returns the current date
SYNOPSIS
INTRINSIC DATE
DATE()
EXTERNAL DATE
CALL DATE(date)
INTRINSIC JDATEJDATE()
EXTERNAL JDATE
CALL JDATE(date)IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
STANDARDS
CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90
DESCRIPTION
DATE and JDATE return the current date. DATE returns the current date
in ASCII mm/dd/yy format. JDATE returns the current Julian day-number
facsimile in ASCII yyddd format, left-justified and blank-filled.
If called as intrinsic functions, DATE and JDATE do not accept any
arguments. The names of these intrinsics cannot be passed as
arguments.
If called as external subprograms, they accept the following argument:
date For DATE, date is a variable containing today's date in
mm/dd/yy format. For JDATE, date is today's Julian day-number
facsimile in yyddd format.
The data type of date depends on your platform, as follows:
* On UNICOS or UNICOS/mk systems, it must be of type integer,
CHARACTER*8, or real. If time is of type integer or real, it
must be of KIND=8.
* On IRIX systems, date must be declared as CHARACTER*8.
RETURN VALUES
When called as an intrinsic function, the data type of the return
value depends on your platform. On UNICOS and UNICOS/mk systems, it
is of type Boolean. On IRIX systems, it is of type CHARACTER*8.
NOTES
For Fortran 90 programs, the DATE and JDATE intrinsic functions are
outmoded. Refer to the Fortran Language Reference Manual, Volume 3,
publication SR-3905, for information on outmoded features and their
preferred standard alternatives.
For both DATE and JDATE, the year will become 0 in the year 2000.
On IRIX systems, you can use either the intrinsic function form or the
external subprogram form, but not both, in a single processing unit
(PU).
SEE ALSO
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.