pxflocaltime

Date:: 10-20-2011

NAME

PXFLOCALTIME - Converts to local time

SYNOPSIS

CALL PXFLOCALTIME(isecnds, iatime, ierror)
INTEGER isecnds, iatime, ierror

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

IEEE Std 1003.9-1992 standard interface for FORTRAN 77

DESCRIPTION

The PXFLOCALTIME routine uses the localtime function to convert seconds since 00:00:00 CTU (coordinated universal time), January 1, 1970 (the Epoch), to broken-down time. Adjustments for time zone and daylight savings time are made according to the TZ environment variable.

All arguments must be of default kind unless documented otherwise. Default kind is KIND=4 for integer, real, complex, and logical arguments.

The following is a list of valid arguments for this routine:

isecnds

An input integer variable containing the number of seconds since 00:00:00 CTU, January 1, 1970.

iatime

An output integer array with the elements:

iatime(1): Seconds (0-61, for leap seconds)
iatime(2): Minutes (0-59)
iatime(3): Hours (0-23)
iatime(4): Day of the month (1-31)
iatime(5): Month of the year (1-12)
iatime(6): Gregorian year (e.g., 1995)
iatime(7): Day of the week (0 = Sunday)
iatime(8): Day of the year (1-366)
iatime(9): Daylight savings flag (0 = standard, nonzero = daylight savings)

ierror

An output integer variable that contains zero if PXFLOCALTIME was successful or nonzero if PXFLOCALTIME was unsuccessful.

This routine may return the EINVAL error value if the current value of the TZ environment variable is invalid. iatime is left unchanged if this error occurs.

EXAMPLES

In this example, the current time, date, and time system are displayed if PXFLOCALTIME and PXFTIME are successful.

program pxftest
integer isecnds, iatime(9), ierror
CALL PXFTIME(isecnds,ierror)
  if (ierror .eq. 0) then
     CALL PXFLOCALTIME(isecnds,iatime,ierror)
     if (ierror .eq. 0) then
        print *,'Time: ',IATIME(3),':',IATIME(2),':',IATIME(1)
        print *,'Date: ',IATIME(4),'.',IATIME(5),'.',IATIME(6)
        if (IATIME(9) .eq. 0) then
           print *,'standard time'
        else
           print *,'daylight savings'
        endif
     else
        print *,'PXFTIME error = ',ierror
     endif
  else
     print *,'PXFTIME error = ',ierror
  endif
end

This example may display:

Time: 8:37:24
Date: 11.7.1996
daylight savings