PXFESTRGET(3F) Last changed: 1-6-98
NAME
PXFESTRGET - Accesses a single string element of a structure component
that is an array
SYNOPSIS
SUBROUTINE PXFESTRGET (jhandle, compnam, index, value, ilen, ierror)
INTEGER jhandle, index, ilen, ierror
CHARACTER*n compnam, value
IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
STANDARDS
IEEE standard interface for FORTRAN 77
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.
The PXFESTRGET routine returns a string contained in a single element
of a structure component that is an array.
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 subroutine:
jhandle An input handle variable created with PXFSTRUCTCREATE(3F).
compnam An input character variable or array element containing the
desired structure component name.
index An input integer variable for the desired index in the
array.
value An output character variable or array element that will
contain the string referenced by companm, index, and
jhandle.
ilen An output integer variable for the length of the returned
character string.
ierror An output integer variable that contains zero if PXFESTRGET
was successful or nonzero if PXFESTRGET was not successful.
The PXFESTRGET subroutine may return any of the following error
values:
ENONAME If the component name is not defined for this structure.
ETRUNC If the declared length of the character argument is
insufficient to contain the string to be returned.
ENOMEM If there is insufficent memory to create data structures
needed by the routine.
EBADHANDLE
If jhandle is an invalid handle or has an incorrect handle
type (UNICOS and UNICOS/mk systems only).
EXAMPLES
In this example, PXFGETGRGID(3F) and PXFGETGID(3F) are used to obtain
the first user name in the current process' group.
program pxftest
integer igid, ierror, jgroup, len, imax, i
character*30 loginname
CALL PXFSTRUCTCREATE('group',jgroup,ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFSTRUCTCREATE with error = ',ierror
else
CALL PXFGETGID(igid,ierror)
CALL PXFGETGRGID(igid,jgroup,ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFGETGRGID with error = ',ierror
else
CALL PXFINTGET(jgroup,'gr_nmem',imax,ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFINTGET with error = ',ierror
else
if (imax .gt. 0) then
do i = 1,imax
CALL PXFESTRGET(jgroup,'gr_mem',i,loginname,len,ierror)
print *,loginname
end do
else
print *,'FAILED: Could not test PXFESTRGET'
endif
endif
endif
endif
end
SEE ALSOPXFSTRUCTCREATE(3F)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
