pxfgetcwd(3F)

NAME
     PXFGETCWD - Gets the pathname of the working directory

SYNOPSIS
     SUBROUTINE PXFGETCWD (buf, ilen, ierror)
     CHARACTER*n buf
     INTEGER ilen, ierror

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 PXFGETCWD subroutine uses the getcwd() function to get the current
     working directory.

     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:

     buf       An output character variable or array element for the
               current working directory. The longest pathname cannot be
               longer than PATH_MAX for the UNICOS operating system, or
               MAXPATHLEN for IRIX systems as defined in <sys/param.h>.

     ilen      An output integer variable containing the character length
               of buf.

     ierror    An output integer variable that contains zero if the working
               directory path was successfully copied into buf or nonzero
               if PXFGETCWD was not successful.

     The PXFGETCWD subroutine may return any of the following error values:

     ETRUNC      If the length of buf is less than the complete path
                 length.

     EACCESS     If read or search permission for any component of the
                 current working directory path was denied.

EXAMPLES
     In this example, PXFGETCWD will be called with a large buffer, which
     should not cause any errors, and then with a very small buffer, which
     should cause an error.

          program pxftest
          character*1024 path
          character*10 toosmallbuff
          integer pathlen, ierr

          CALL PXFGETCWD(path, pathlen, ierr)
          print *,'path = ',path,' - ierr = ',ierr
          CALL PXFGETCWD(toosmallbuff, pathlen, ierr)
          print *,'toosmallbuff = ',toosmallbuf,' - ierr = ',ierr
          end

SEE ALSO
     getcwd(3C)

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