TDATE
Gets today’s date.
Required Arguments
IDAY — Day of the month. (Output)
IDAY is between 1 and 31 inclusive.
MONTH — Month of the year. (Output)
MONTH is between 1 and 12 inclusive.
IYEAR — Year. (Output)
For example, IYEAR = 1985.
FORTRAN 90 Interface
Generic: CALL TDATE (IDAY, MONTH, IYEAR)
Specific: The specific interface name is TDATE.
FORTRAN 77 Interface
Single: CALL TDATE (IDAY, MONTH, IYEAR)
Description
Routine TDATE is used to retrieve today’s date. Obviously, the output is dependent upon the date the program is run.
Example
The following example uses TDATE to return today’s date.
USE TDATE_INT
USE UMACH_INT
IMPLICIT NONE
INTEGER IDAY, IYEAR, MONTH, NOUT
!
CALL TDATE (IDAY, MONTH, IYEAR)
CALL UMACH (2, NOUT)
WRITE (NOUT,*) 'Day-Month-Year = ', IDAY, '-', MONTH, &
'-', IYEAR
END
Output
Day-Month-Year = 7 - 7 - 2006
