PXFGETCWD(3F) Last changed: 1-6-98
NAMEPXFGETCWD - 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
7.2 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 ALSOgetcwd(3C)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
