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