pxfstructfree

Date:: 10-20-2011

NAME

PXFSTRUCTFREE - Deletes the instance of the structure referenced by jhandle

SYNOPSIS

INTEGER jhandle, ierror
CALL PXFSTRUCTFREE(jhandle, ierror)

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

IEEE Std 1003.9-1992 standard interface for FORTRAN 77

DESCRIPTION

The PXFSTRUCTFREE routine deletes the instance of the structure referenced by jhandle. This structure should have been created by PXFSTRUCTCREATE.

All arguments must be of default kind unless documented otherwise. Default kind is KIND=4 for integer, real, complex, and logical arguments.

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.

EXAMPLES

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

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