pxflink(3F)

NAME
     PXFLINK - Creates a link to a file

SYNOPSIS
     CHARACTER*n existf, newf
     INTEGER lenexist, lennew, ierror
     CALL PXFLINK(existf, lenexist, newf, lennew, ierror)

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

     The PXFLINK routine uses the link function to link an existing file to
     a new 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:

     existf    An input character variable or array element containing the
               name of an existing file.

     lenexist  An input integer variable containing the length of existf in
               characters.  If lenexist is zero, all trailing blanks are
               removed before calling link().

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

     lennew    An input integer variable containing the length of newf in
               characters.  If lennew is zero, all trailing blanks are
               removed before calling link().

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

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

     EINVAL    If lenexist < 0 or lenexist > LEN(existf) or lennew < 0 or
               lennew > LEN(newf).

     ENOMEM    If PXFLINK is unable to obtain memory to copy existf or
               newf.

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 = 'existfile'
          fileb = 'newfile'
          lenfila = 0
          lenfilb = 0
          call pxflink(filea,lenfila,fileb,lenfilb,ierr)
          if (ierr.ne.0) then
              print *,'FAIL: error from pxflink = ',ierr
          else
              print *,'PASS: No error from pxflink = '
          endif
          end