pxfgetcwd(3F)

NAME
     PXFGETCWD - Gets the pathname of the working directory

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

STANDARDS
     IEEE standard interface for FORTRAN 77

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

     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 subroutine:

     buf       An output character variable or array element for the
               current working directory. The longest pathname cannot be
               longer than MAXPATHLEN 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.

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

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)