PXFCONST(3F) Last changed: 1-6-98
NAME
PXFCONST, PXFISCONST, IPXFCONST - Returns the value associated with
symbolic constants
SYNOPSIS
CHARACTER*(n) constname
INTEGER ival, ierror
LOGICAL PXFISCONST, 1
i = IPXFCONST (constname)
l = PXFISCONST (constname)
CALL PXFCONST (constnam, ival, ierror)
IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
DESCRIPTION
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.
These functions provide a way for the Fortran programmer to get the
value of some symbolic constants defined in system header files.
IPXFCONST() provides an integer return value but no error checking.
If the argument passed corresponds to one of the defined constants
shown below, the return value is the integer value associated with the
constant; if the argument is not a defined constant, the return value
is meaningless. PXFISCONST() confirms whether the argument is a valid
constant. PXFISCONST() returns .TRUE only if IPXFCONST() would return
a valid value for the same constname.
Upon successful completion, the subroutine PXFCONST() returns in ival
the integer value associated with the constant described by constname.
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 arguments for these subroutines:
constname An input character variable that represents the name of a
constant. constname is case-sensitive, and trailing blanks
in the argument are ignored.
The following are valid values for constname. The second
column contains the system header file where the symbolic
constant is defined, or the standard where it is defined.
'F_GETLK' <fcntl.h>
'F_SETLK' <fcntl.h>
'F_SETLKW' <fcntl.h>
'F_RDLCK' <fcntl.h>
'F_WRLCK' <fcntl.h>
'F_UNLCK' <fcntl.h>
'F_DUPFD' <fcntl.h>
'F_GETFD' <fcntl.h>
'F_SETFD' <fcntl.h>
'F_GETFL' <fcntl.h>
'F_SETFL' <fcntl.h>
'F_SETSB'* <fcntl.h>
'F_SETALF'* <fcntl.h>
'F_CLRALF'* <fcntl.h>
'O_RDONLY' <fcntl.h>
'O_WRONLY' <fcntl.h>
'O_RDWR' <fcntl.h>
'O_ACCMODE' <fcntl.h>
'O_NDELAY' <fcntl.h>
'O_APPEND' <fcntl.h>
'O_SYNC' <fcntl.h>
'O_NONBLOCK' <fcntl.h>
'O_RAW'* <fcntl.h>
'O_SSD'* <fcntl.h>
'O_CREAT' <fcntl.h>
'O_TRUNC' <fcntl.h>
'O_EXCL' <fcntl.h>
'O_NOCTTY' <fcntl.h>
'0_BIG'* <fcntl.h>
'O_PLACE'* <fcntl.h>
'O_RESTART'* <fcntl.h>
'O_ASYNC'* <fcntl.h>
'O_PTYIGN'* <fcntl.h>
'O_SFSXOP'* <fcntl.h>
'O_LDRAW'* <fcntl.h>
'O_WELLFORMED'* <fcntl.h>
'O_SFS_DEFER_TM'* <fcntl.h>
'S_ALF_NOGROW'* <sys/stat.h>
'S_ALF_PARTR'* <sys/stat.h>
'SEEK_SET' <stdio.h>
'SEEK_CUR' <stdio.h>
'SEEK_END' <stdio.h>
'STDIN_FILENO' POSIX.9
'STDOUT_FILENO' Posix.9
'STDERR_FILENO' Posix.9
* = UNICOS and UNICOS/mk systems only
Posix.9 specific errors:
'ENONAME' liberrno.h
'ENOHANDLE' liberrno.h
Errnos 1-98 from <errno.h>, for example: 'EPERM'
Cray implementation errors:
EBADID If the idirid argument is an invalid
directory ID
EBADHANDLE If the handle is invalid
Additional values for constname are described in
descriptions of other PXF routines such as PXFACCESS,
PXFCHMOD, PXFCREAT, PXFOPEN, and so on.
ival An output integer variable. The value associated with the
constant.
ierror An output integer variable. It contains the exit status.
EXIT STATUS
Upon successful completion, the argument ierror is set to 0. If any
of the following conditions occur, PXFCONST() sets ierror to the
corresponding value.
ENONAME Invalid constant name
ENOMEM PXFCONST() could not allocate the memory required
SEE ALSOPXFACCESS(3F), PXFCHMOD(3F), PXFCREAT(3F)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
