Intel® Fortran Compiler 17.0 Developer Guide and Reference
Intrinsic Subroutine (Generic): Returns three integer values representing the current month, day, and year. IDATE can be used as an intrinsic subroutine or as a portability routine. It is an intrinsic procedure unless you specify USE IFPORT. Intrinsic subroutines cannot be passed as actual arguments.
CALL IDATE (i, j, k)
i |
(Output) Must be of type integer. It is the current month. |
j |
(Output) Must be of type integer with the same kind type parameter as i. It is the current day. |
k |
(Output) Must be of type integer with the same kind type parameter as i. It is the current year. |
The current month is returned in i; the current day in j. The last two digits of the current year are returned in k.
The two-digit year return value may cause problems with the year 2000. Use DATE_AND_TIME instead.
If the current date is September 16, 1999, the values of the integer variables upon return are: I = 9, J = 16, and K = 99.