pxfstructfree(3F)

NAME
     PXFSTRUCTFREE - Deletes the instance of the structure referenced by
     jhandle

SYNOPSIS
     INTEGER jhandle, ierror
     CALL PXFSTRUCTFREE (jhandle, ierror)

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

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 PXFSTRUCTFREE routine deletes the instance of the structure
     referenced by jhandle. This structure should have been created by
     PXFSTRUCTCREATE(3F).

     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 are arguments to PXFSTRUCTFREE():

     jhandle   An input integer variable.  jhandle is a handle for a
               structure.

     ierror    An output integer variable.  Upon successful completion of
               PXFSTRUCTFREE(), ierror is set to 0.  This routine will set
               ierror to EBADHANDLE if jhandle is an invalid handle (UNICOS
               or UNICOS/mk systems only).

EXAMPLES
                program test
                integer jstat, ierr, ilen, imode, istino
                character*10 path
          *  Create STRUCTURE to be used by stat()
                call pxfstructcreate('stat',jstat,ierr)
                if (ierr.ne.0) then
                   print *,'FAIL: error from pxfstructcreate = ',ierr
                endif

          *  Fill STRUCTURE through stat()
                ilen = 0
                call pxfstat(path, ilen, jstat,ierr)
                if (ierr.ne.0) then
                   print *,'FAIL: error from pxfstat = ',ierr
                endif
          *  Retrieve components st_ino and mode from STRUCTURE
                call pxfintget(jstat,'st_ino',isino,ierr)
                call pxfintget(jstat,'mode',imode,ierr)
                print *, 'st_ino =',stino
                print *, 'mode =',mode
          *  Free STRUCTURE
                call pxfstructfree(jstat,ierr)
                if (ierr.ne.0) then
                   print *,'FAIL: error from pxfstructfree = ',ierr
                endif
                end

SEE ALSO
     PXFSTRUCTCREATE

     Application Programmer's Library Reference Manual, publication SR-
     2165, for the printed version of this man page.