pxfcreat(3F)

NAME
     PXFCREAT - Creates a new file or rewrites an existing file

SYNOPSIS
     CHARACTER*n path
     INTEGER ilen, imode, ifildes, ierror
     CALL PXFCREAT(path, ilen, imode, ifildes, 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 PXFCREAT subroutine uses the creat(2) system call to create a new
     file or rewrite an existing file.  The call is similar to PXFOPEN with
     an iopenflag argument of O_WRONLY, O_CREAT, and O_TRUNC.

     The value of imode indicates specific file modes.  If the file exists,
     imode is ignored.  The mode values are used when path is 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 subroutine:

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

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

     imode     An input integer variable containing the integer value of
               the symbolic constant for one or more of the following file
               modes:

               USER      READ permissions bit:  S_IRUSR
                         WRITE permissions bit:  S_IWUSR
                         SEARCH/EXECUTE permissions bit:  S_IXUSR
                         Inclusive OR of READ/WRITE/EXECUTE:  S_IRWXU

               GROUP     READ permissions bit:  S_IRGRP
                         WRITE permissions bit:  S_IWGRP
                         SEARCH/EXECUTE permissions bit:  S_IXGRP
                         Inclusive OR of READ/WRITE/EXECUTE:  S_IRWXG

               OTHER     READ permissions bit:  S_IROTH
                         WRITE permissions bit:  S_IWOTH
                         SEARCH/EXECUTE permissions bit:  S_IXOTH
                         Inclusive OR of READ/WRITE/EXECUTE:  S_IRWXO

               SETID     Set user ID on execution:  S_ISUID
                         Set group ID on execution:  S_ISGID

               An integer value for each of these symbolic constants is
               retrieved through the use of PXFCONST or IPXFCONST.  The
               integer values may be combined through the use of a bitwise
               inclusive OR function.

     ifildes   An output integer variable containing the file descriptor
               returned by creat().

     ierror    An output integer variable that contains zero if the file is
               created or rewritten or nonzero if PXFCREAT is not
               successful.

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

     EINVAL    If ilen < 0 or ilen > LEN(path)

     ENOMEM    If PXFCREAT 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
          program test
          character*(12) path
          integer ilen, imod, ifilde, ierr
          integer imodru, imodwu, imodwg, imodrg
          integer ierr1, ierr2, ierr3, ierr4
          path = 'testfile'
          imod = 0
          ilen = 0
          call pxfconst('S_IRUSR',imodru,ierr1)
          call pxfconst('S_IWUSR',imodwu,ierr2)
          call pxfconst('S_IRGRP',imodrg,ierr3)
          call pxfconst('S_IWGRP',imodwg,ierr4)
          imod = IOR((IOR(imodru,imodwu)),(IOR(imodrg,imodwg)))
          call pxfcreat(path,ilen,imod,ifilde,ierr)
          if (ierr.ne.0) then
             print *,'FAIL: error from pxfcreat = ',ierr
          else
             print *,'PASS: No error from pxfcreat = '
          endif
          end

SEE ALSO
     creat(2), PXFCONST(3F)