pxfchown

Date:: 10-20-2011

NAME

PXFCHOWN - Changes the owner and group of a file

SYNOPSIS

CHARACTER*n path
INTEGER ilen, iowner, igroup, ierror
CALL PXFCHOWN(path, ilen, iowner, igroup, ierror)

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

IEEE standard interface for FORTRAN 77

DESCRIPTION

The PXFCHOWN subroutine uses the chown(2) function to change the owner and group of a file.

The value of iowner and igroup indicates the new values.

When using the Cray Fortran compiler, all arguments must be of the 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 routine:

path: Input character variable or array element containing the name of a file.
ilen: Input integer variable containing the length of path in characters. If ilen is zero, all trailing blanks are removed before calling chown().
iowner: Input integer variable containing the integer value for the owner.
igroup: Input integer variable containing the integer value for the group.
ierror: Output integer variable that contains zero if the group and owner of the file were changed or nonzero if PXFCHOWN did not change the group and owner.

In addition to the errors returned by the chown system call, PXFCHOWN may return the following errors:

EINVAL: If ilen is less than 0 or ilen is greater than LEN(path).
ENOMEM: If PXFCHOWN is unable to obtain memory to copy path.

EXAMPLES

subroutine test (iowner,igroup)
character*(12) path
integer ilen, iowner, igroup, ierr
path = 'testfile'
ilen = 0
call pxfchown(path,ilen,iowner,igroup,ierr)
if (ierr.ne.0) then
    print *,'FAIL: error from pxfchown = ',ierr
else
    print *,'PASS: No error from pxfchown = '
endif
end