pxfchown(3F)

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)

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

     All arguments must be of default kind unless documented otherwise.  On
     IRIX, the default kind is KIND=4.

     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(2) 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.

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

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

SEE ALSO
     chown(2)