pxfrename(3F)

NAME
     PXFRENAME - Renames a file

SYNOPSIS
     CHARACTER*n oldnm, newnm
     INTEGER lenold, lennew, ierror
     CALL PXFRENAME(oldnm, lenold, newnm, lennew, 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 PXFRENAME routine uses the rename() function to change the name of
     a file.

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

     oldnm     An input character variable or array element containing the
               current file name.

     lenold    An input integer variable containing the length of oldnm in
               characters.  If lenold is zero, all trailing blanks are
               removed before calling rename.

     newnm     An input character variable or array element containing the
               new name of the file.

     lennew    An input integer variable containing the length of newnm in
               characters.  If lennew is zero, all trailing blanks are
               removed before calling rename.

     ierror    An output integer variable that contains zero if the
               renaming of the file was successful or nonzero if the
               renaming of the file was not completed.

     In addition to the errors returned by rename(2) system call, PXFRENAME
     may return the following errors:

     EINVAL    If lenold < 0 or lenold > LEN(old) or lennew < 0 or lennew >
               LEN(newf).

     ENOMEM    If PXFRENAME is unable to obtain memory to copy oldnm or
               newnm.

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

EXAMPLES
          program test
          character*(12) filea, fileb
          integer lenfila, lenfilb,ierr
          filea = 'oldname'
          fileb = 'newname'
          lenfila = 0
          lenfilb = 0
          call pxfrename(filea,lenfila,fileb,lenfilb,ierr)
          if (ierr.ne.0) then
              print *,'FAIL: error from pxfrename = ',ierr
          else
              print *,'PASS: No error from pxfrename = '
          endif
          end