pxfgetcwd

Date:: 10-20-2011

NAME

PXFGETCWD - Gets the pathname of the working directory

SYNOPSIS

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

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

IEEE standard interface for FORTRAN 77

DESCRIPTION

The PXFGETCWD subroutine uses the getcwd() function to get the current working directory.

When using the Cray Fortran compiler, all arguments must be of default kind unless documented otherwise. The default kind is KIND=4 for integer, real, complex, and logical arguments.

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