PXFLOCALTIME(3F) Last changed: 1-6-98
PXFLOCALTIME - Converts to local time
SUBROUTINE PXFLOCALTIME (isecnds, iatime, ierror)
INTEGER isecnds, iatime, ierror
UNICOS, UNICOS/mk, and IRIX systems
IEEE standard interface for FORTRAN 77
On IRIX systems, this routine is in libfortran.so which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the -craylibs option to the MIPSpro
7.2 F77 compiler.
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.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KIND=8 for integer, real, complex, and logical arguments; on
IRIX, the default kind is KIND=4.
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.
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
ctime(3C)
Application Programmer's Library Reference Manual, publication SR2165,
for the printed version of this man page.
PXFLOCALTIME(3F) Last changed: 1-6-98
PXFLOCALTIME - Converts to local time
SUBROUTINE PXFLOCALTIME (isecnds, iatime, ierror)
INTEGER isecnds, iatime, ierror
UNICOS, UNICOS/mk, and IRIX systems
IEEE standard interface for FORTRAN 77
On IRIX systems, this routine is in libfortran.so which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the -craylibs option to the MIPSpro
7.2 F77 compiler.
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.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KIND=8 for integer, real, complex, and logical arguments; on
IRIX, the default kind is KIND=4.
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.
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
ctime(3C)
Application Programmer's Library Reference Manual, publication SR2165,
for the printed version of this man page.
[ Back ]
|
