test

Sun Studio 12: Fortran Library Reference

1.4.51 time, ctime, ltime, gmtime: Get System Time

These routines have the following functions:

time

Standard version: Get system time as integer (seconds since 0 GMT 1/1/70)

VMS Version: Get the system time as character (hh:mm:ss) 

ctime

Convert a system time to an ASCII string. 

ltime

Dissect a system time into month, day, and so forth, local time. 

gmtime

Dissect a system time into month, day, and so forth, GMT. 

1.4.51.1 time: Get System Time

The time() function is called by:

INTEGER*4 time or INTEGER*8

n = time() Standard Version

Return value 

INTEGER*4

Output 

Time, in seconds, since 0:0:0, GMT, 1/1/70 
 

INTEGER*8

Output 

In 64-bit environments, time returns an INTEGER*8 value

The function time() returns an integer with the time since 00:00:00 GMT, January 1, 1970, measured in seconds. This is the value of the operating system clock.

Example: time(), version standard with the operating system:


demo% cat ttime.f
        INTEGER*4  n, time
        n = time()
        write(*,*) ’Seconds since 0 1/1/70 GMT = ’, n
        end
demo% f95 ttime.f
demo% a.out
 Seconds since 0 1/1/70 GMT =   913240205
demo%

1.4.51.2 ctime: Convert System Time to Character

The function ctime converts a system time, stime, and returns it as a 24-character ASCII string.

The function is called by:

CHARACTER ctime*24

string = ctime( stime )

stime

INTEGER*4

Input 

System time from time() (standard version)

Return value 

character*24

Output 

System time as character string. Declare ctime and string as character*24.

The format of the ctime returned value is shown in the following example. It is described in the man page ctime(3C).

Example: ctime():


demo% cat tctime.f
        character*24 ctime, string
        INTEGER*4  n, time
        n = time()
        string = ctime( n )
        write(*,*) ’ctime: ’, string
        end
demo% f95 tctime.f
demo% a.out
 ctime: Wed Dec  9 13:50:05 1998
demo%

1.4.51.3 ltime: Split System Time to Month, Day,… (Local)

This routine dissects a system time into month, day, and so forth, for the local time zone.

The subroutine is called by:

call ltime( stime, tarray )

stime

INTEGER*4

Input 

System time from time() (standard version)

tarray

INTEGER*4(9)

Output 

System time, local, as day, month, year, … 

For the meaning of the elements in tarray, see the next section.

Example: ltime():


demo% cat tltime.f
        integer*4  stime, tarray(9), time
        stime = time()
        call ltime( stime, tarray )
        write(*,*) ’ltime: ’, tarray
        end
demo% f95 tltime.f
demo% a.out
 ltime: 25 49 10 12 7 91 1 223 1
demo%

1.4.51.4 gmtime: Split System Time to Month, Day, … (GMT)

This routine dissects a system time into month, day, and so on, for GMT.

The subroutine is:

call gmtime( stime, tarray )

stime

INTEGER*4

Input 

System time from time() (standard version)

tarray

INTEGER*4(9)

Output 

System time, GMT, as day, month, year, … 

Example: gmtime:


demo% cat tgmtime.f
        integer*4  stime, tarray(9), time
        stime = time()
        call gmtime( stime, tarray )
        write(*,*) ’gmtime: ’, tarray
        end
demo% f95t tgmtime.f
demo% a.out
 gmtime:   12  44  19  18  5  94  6  168  0
demo%

Here are the tarray() values for ltime and gmtime: index, units, and range:

1 

2 

3 

4 

5 

Seconds (0 - 61) 

Minutes (0 - 59) 

Hours (0 - 23) 

Day of month (1 - 31) 

Months since January (0 - 11) 

6 

7 

8 

9 

Year - 1900 

Day of week (Sunday = 0) 

Day of year (0 - 365) 

Daylight Saving Time, 1 if DST in effect 

These values are defined by the C library routine ctime(3C), which explains why the system may return a count of seconds greater than 59. See also: idate(3F), and fdate(3F).

1.4.51.5 ctime64, gmtime64, ltime64: System Time Routines for 64-bit Environments

These are versions of the corresponding routines ctime, gmtime, and ltime, to provide portability on 64-bit environments. They are identical to these routines except that the input variable stime must be INTEGER*8.

When used in a 32-bit environment with an INTEGER*8 stime, if the value of stime is beyond the INTEGER*4 range ctime64 returns all asterisks, while gmtime and ltime fill the tarray array with -1.