6.69 FDATE — Get the current time as a string

Description:

FDATE(DATE) returns the current date (using the same format as CTIME) in DATE. It is equivalent to CALL CTIME(DATE, TIME()).

This intrinsic is provided in both subroutine and function forms; however, only one form can be used in any given program unit.

DATE is an INTENT(OUT) CHARACTER variable.

Standard:

GNU extension

Class:

Subroutine, function

Syntax:

CALL FDATE(DATE).

DATE = FDATE(), (not recommended).

Arguments:

DATE	The type shall be of type CHARACTER.

Return value:

The current date as a string.

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