Intel® Fortran Compiler 18.0 Developer Guide and Reference
Portability Function: Returns a 10-character string with the Julian date in the form "yyyyddd". Three spaces terminate this string.
USE IFPORT
result = JDATE4( )
The result type is character with length 10. The result is the Julian date, in the form YYYYDDD, followed by three spaces.
The Julian date is a seven-digit number whose first four digits are the year, and whose final three 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 1999032.