pxfgetenv(3F)

NAME
     PXFGETENV - Returns a value for the environment name

SYNOPSIS
     SUBROUTINE PXFGETENV (name, lenname, value, lenval, ierror)
     CHARACTER*n name, value
     INTEGER lenname, lenval, 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.

     The PXFGETENV subroutine uses the getenv() function to search the
     environment list for a name in a string of the form name=value.

     If name matches a name in the list, the character representation of
     value is stored in the value character argument and the number of
     characters in value is stored in lenval.  If the length of the value
     to be placed in value is larger than the declared length of value, the
     value string is truncated on the right and stored in value.  The
     nontruncated length is stored in lenval and ierror is set to etrunc.
     If the length of the value is shorter than the declared size of value,
     the value string is stored with left justification and filled with
     blanks on the right.  lenval is set to the shorter length of the value
     string.

     If name is found but has no value, blanks are stored in value and
     lenval is set to zero.  If name cannot be found, EINVAL is returned in
     ierror.

     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:

     name      An input character variable or array element containing the
               name of an environment variable.

     lenname   An input integer variable containing the length of name in
               characters.  If lenname is zero, the trailing blanks are
               removed.  The declared length of the input name is
               decremented by the number of blanks removed.  If lenname is
               zero and name is all blanks, the input name is a null
               string.

     value     An output character variable or array element containing the
               value of the environment variable name.

     lenval    An output integer variable containing the length of value in
               characters.  If name is found but has no value, lenval is
               zero and value contains all blanks to indicate a null
               string.  If the value representation is truncated to be
               stored in value, lenval contains the nontruncated length of
               value.  If the value representation is shorter than the
               length of value, lenval contains the shorter length.

     ierror    An output integer variable containing the status:

               EINVAL    If name is not in the environment list.

               ETRUNC    If the declared length of value is insufficient to
                         contain the string to be returned.  The value of
                         name is truncated to fit in value, and lenval
                         contains the original length of the value of name
                         before truncation.

               Zero      getenv is successful (if name is found).

EXAMPLES
     In this example, PXFGETENV searches for a string containing
     SHELL=value.

               program testpxf
               character*24 namea, nameb
               integer lena, lenb, ier
          c set input arguments
               ier = 0
               lena=0
               lenb=0
               namea='SHELL'
               nameb=' '
               CALL PXFGETENV (namea, lena, nameb, lenb, ier)
               print *,'TEST results:'
          c print input arguments
               print *,'namea=-',namea,'-'
               print *,'lena=',lena
          c print output arguments
               print *,'nameb=-',nameb,'-'
               print *,'lenb=',lenb
               print *,'ier=',ier
               end

     If the string is found, it may return:

               TEST results:
               namea=-SHELL
               lena=0
               nameb=-/bin/csh
               lenb=8
               ier=0

SEE ALSO
     getenv(3C)

     Application Programmer's Library Reference Manual, publication SR-
     2165, for the printed version of this man page.