pxfstructfree(3F)

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

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

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

     All arguments must be of default kind unless documented otherwise.  On
     IRIX systems, 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.

NOTES
     The PXF_DEFINITIONS module can be used by Fortran 90 users to enable
     caller-callee interface checking.

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