date(3I)

NAME
     DATE, JDATE - Returns the current date

SYNOPSIS
     INTRINSIC DATE
     DATE()

     EXTERNAL DATE
     CALL DATE(date)

     INTRINSIC JDATE
     JDATE()

     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.