FDATE — Get the current time as a string#
-
FDATE(DATE)#
FDATE(DATE)
returns the current date (using the same format as CTIME — Convert a time into a string) inDATE
. It is equivalent toCALL CTIME(DATE, TIME())
.- Parameters
DATE – The type shall be of type
CHARACTER
of the default kind. It is anINTENT(OUT)
argument. If the length of this variable is too short for the date and time string to fit completely, it will be blank on procedure return.- Returns
The current date and time as a string.
- Standard:
GNU extension
- Class:
Subroutine, function
- Syntax:
CALL FDATE(DATE). DATE = FDATE().
- Example:
program test_fdate integer(8) :: i, j character(len=30) :: date call fdate(date) print *, 'Program started on ', date do i = 1, 100000000 ! Just a delay j = i * i - i end do call fdate(date) print *, 'Program ended on ', date end program test_fdate
- See also:
DATE_AND_TIME — Date and time subroutine, CTIME — Convert a time into a string