PXFSTRUCTFREE(3F) Last changed: 1-6-98
PXFSTRUCTFREE - Deletes the instance of the structure referenced by
jhandle
INTEGER jhandle, ierror
CALL PXFSTRUCTFREE (jhandle, ierror)
UNICOS, UNICOS/mk, and IRIX systems
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).
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
PXFSTRUCTCREATE
Application Programmer's Library Reference Manual, publication SR2165,
for the printed version of this man page.
PXFSTRUCTFREE(3F) Last changed: 1-6-98
PXFSTRUCTFREE - Deletes the instance of the structure referenced by
jhandle
INTEGER jhandle, ierror
CALL PXFSTRUCTFREE (jhandle, ierror)
UNICOS, UNICOS/mk, and IRIX systems
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).
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
PXFSTRUCTCREATE
Application Programmer's Library Reference Manual, publication SR2165,
for the printed version of this man page.
[ Back ]
|