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

DESCRIPTION
     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 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.

     All arguments must be of default kind unless documented otherwise.  On
     IRIX systems, 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).

NOTES
     The PXF_DEFINITIONS module can be used by Fortran 90 users to enable
     caller-callee interface checking.

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)