Next: DATE_AND_TIME, Previous: CSHIFT, Up: Intrinsic Procedures
CTIME — Convert a time into a stringCTIME converts a system time value, such as returned by
TIME8, to a string. Unless the application has called
setlocale, the output will be in the default locale, of length
24 and of the form `Sat Aug 19 18:13:14 1995'. In other locales,
a longer string may result.
This intrinsic is provided in both subroutine and function forms; however,
only one form can be used in any given program unit.
CALL CTIME(TIME, RESULT).
|
RESULT = CTIME(TIME).
|
| TIME | The type shall be of type INTEGER.
|
| RESULT | The type shall be of type CHARACTER and
of default kind. It is an INTENT(OUT) argument. If the length
of this variable is too short for the time and date string to fit
completely, it will be blank on procedure return.
|
program test_ctime
integer(8) :: i
character(len=30) :: date
i = time8()
! Do something, main part of the program
call ctime(i,date)
print *, 'Program was started on ', date
end program test_ctime