pxfestrget(3F)

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
     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 ALSO
     PXFSTRUCTCREATE(3F)

     Application Programmer's Library Reference Manual for the printed
     version of this man page.