date - return date in character form
subroutine date (str) character*9 str
The date subroutine gets the current date and puts it into the character string str. The form is dd-mmm-yy.
dd is the day of the month as a two-digit integer.
mmm is the name of the month as a three-letter abbreviation: Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec.
yy is the year as a two-digit integer.
YEAR 2000 ALERT: date() IS NOT Y2K SAFE! Since date returns a 2-digit year, it should not be used to compare dates without taking this into account. Routines fdate(3F), idate(3F), and date_and_time(3F) do return 4-digit years and could be used instead.
Because date is not Y2K safe, programs using this routine will generate warning messages at compilation and execution.
Usage:
character*9 str call date (str)
Example:
demo% cat dat1.f * dat1.f -- Get the date as a character string. character c*9 call date ( c ) write (*, "(' The date today is: ', A9 )" ) c end demo% f77 dat1.f dat1.f: MAIN: "dat1.f", line 2: Warning: Subroutine "date" is not safe after year 2000; use "date_and_time" instead demo% a.out Computing time differences using the 2 digit year from subroutine date is not safe after year 2000. The date today is: 2-Oct-97 demo%
libfsu.a
idate(3F), ctime(3F), fdate(3F), date_and_time(3F)
FORTRAN 77 Reference Manual