pxfclose

Date:: 10-20-2011

NAME

PXFCLOSE - Closes a file

SYNOPSIS

CALL PXFCLOSE(ifildes, ierror)
INTEGER ifildes, ierror

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

IEEE Std 1003.9-1992 standard interface for FORTRAN 77

DESCRIPTION

The PXFCLOSE subroutine uses the close() system call to close a file descriptor. When using the Cray Fortran Compiler, all arguments must be of 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 subroutine:

ifildes: Input integer variable that contains the file descriptor.
ierror: Output integer variable that contains zero if the operation was successful or nonzero if the operation was not successful.

The possible error conditions for PXFCLOSE are identical to those returned by the close() function.

EXAMPLES

      INTEGER ifildes, ierror
      ierror = 0
!     Using a file descriptor created by PXFOPEN call
      CALL PXFCLOSE( ifildes, ierror)
      if (ierror .ne. 0)
      then
         print *,'nonzero ierror returned by PXFCLOSE = ',ierror
      endif
      end