Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2systime = CTIME (TIME( ))print *, 'Current date and time is ',systimeDATEPortability Function or Subroutine: Returns the current system date.Module: USE IFPORTFunction Syntax:result = DATE ( )Subroutine Syntax:CALL DATE (string)string(Output) CHARACTER. Variable or array containing at least nine bytes of storage.DATE in its function form returns a CHARACTER string of length 8 in the form mm/dd/yy, wheremm, dd, and yy are two-digit representations of the month, day, and year, respectively.DATE in its subroutine form returns string in the form dd-mmm-yy, where dd is a two-digitrepresentation of the current day of the month, mmm is a three-character abbreviation for thecurrent month (for example, Jan) and yy are the last two digits of the current year.NOTE. DATE is an intrinsic procedure unless you specify USE IFPORT.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS LIBSee Also: the DATE subroutine in the Language ReferenceExampleUSE IFPORT!If today's date is March 02, 2000, the following!code prints "02-Mar-00"CHARACTER(9) TODAYCALL DATE(TODAY)PRINT *, TODAY!The next line prints "03/02/00"PRINT *, DATE( )2-43