Intel® Fortran Compiler 16.0 User and Reference Guide
Portability Function: Returns an 8-character string with the Julian date in the form "yyddd". Three spaces terminate this string.
USE IFPORT
result = JDATE( )
The result type is character with length 8. The result is the Julian date, in the form YYDDD, followed by three spaces.
The Julian date is a five-digit number whose first two digits are the last two digits of the year, and whose final three digits represent the day of the year (1 for January 1, 366 for December 31 of a leap year, and so on). For example, the Julian date for February 1, 1999 is 99032.
The two-digit year return value may cause problems with the year 2000. Use DATE_AND_TIME instead.
! Sets julian to today's julian date
USE IFPORT
CHARACTER*8 julian
julian = JDATE( )