PXFLINK(3F) Last changed: 1-6-98
NAME
PXFLINK - Creates a link to a file
SYNOPSIS
CHARACTER*n existf, newf
INTEGER lenexist, lennew, ierror
CALL PXFLINK(existf, lenexist, newf, lennew, ierror)
IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
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
7.2 F77 compiler.
The PXFLINK routine uses the link function to link an existing file to
a new file.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KIND=8 for integer, real, complex, and logical arguments; on
IRIX, 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.
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
SEE ALSO
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
