Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2call PXFUNAME(jhandle1,ierror)if(ierror.NE.0) call Error('Error: call to PXFUNAME has failed')print *,"Print contents of the structure associated with jhandle1"print*," returned from PXFUNAME"call PRINT_UTSNAME(jhandle1)print *,"Copy the contents of the structure associated with jhandle1"print *," into the structure associated with jhandle2"call PXFSTRUCTCOPY("utsname",jhandle1,jhandle2,ierror)if(ierror.NE.0) call Error('Error: can't copy jhandle1 contents into jhandle2')print *,"Print the contents of the structure associated with jhandle2."print *," It should be the same after copying."call PRINT_UTSNAME(jhandle2)print *,"Free memory for instance of structure associated with jhandle1"call PXFSTRUCTFREE(jhandle1,ierror)if(ierror.NE.0) STOP 'Error: can't free instance of structure for jhandle1'print *,"Free memory for instance of structure associated with jhandle2"call PXFSTRUCTFREE(jhandle2,ierror)if(ierror.NE.0) STOP 'Error: can't free instance of structure for jhandle2'print *,"Program terminated normally"call PXFEXIT(0)endPXFSTRUCTFREEPOSIX Subroutine: Deletes the instance of a structure.Module: USE IFPOSIXSyntaxCALL PXFSTRUCTFREE (jhandle, ierror)jhandle(Input) INTEGER(4) on IA-32 processors; INTEGER(8) on Intel Itanium processors. A handle ofa structure.ierror(Output) INTEGER(4). The error status.2-341