PXFSTRUCTCOPY(3F) Last changed: 1-6-98
NAME
PXFSTRUCTCOPY - Copies structure
SYNOPSIS
SUBROUTINE PXFSTRUCTCOPY (structname, jhandle1, jhandle2, ierror)
INTEGER jhandle1, jhandle2, ierror
CHARACTER*n structname
IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
STANDARDS
IEEE standard interface for FORTRAN 77
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 PXFSTRUCTCOPY routine copies structures created with
PXFSTRUCTCREATE(3F). The structure referenced by jhandle1 is copied to
the structure referenced by jhandle2.
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 valid arguments for this routine:
structname
An input character variable or array element containing the
structure name corresponding to the two structure handles'
type.
jhandle1 An input structure handle variable to be copied.
jhandle2 An output structure handle variable that will contain a copy
of the structure of jhandle1 after successful execution of
PXFSTRUCTCOPY.
ierror An output integer variable that contains zero if
PXFSTRUCTCOPY was successful or nonzero if PXFSTRUCTCOPY was
not successful.
This routine may also return any of the following error values:
ENONAME If structname is an invalid structure name, or if
structname does not match the jhandle1 and jhandle2
structure type.
ENOMEM If memory is unavailable to create data structures needed
to copy a component.
EBADHANDLE If jhandle1 or jhandle2 is an invalid handle or has an
incorrect handle type (UNICOS and UNICOS/mk only).
EXAMPLES
In this example, two utsname structures are created using
PXFSTRUCTCREATE(3F). PXFUNAME(3F) is called with one utsname
structure, which is then copied to the other utsname structure.
program pxftest
integer jhandle1, jhandle2
integer ierror
CALL PXFSTRUCTCREATE('utsname',jhandle1,ierror)
if (ierror .ne. 0) then
print *,' FAILED: PXFSTRUCTCREATE for utsname1'
else
CALL PXFSTRUCTCREATE('utsname',jhandle2,ierror)
if (ierror .ne. 0) then
print *,' FAILED: PXFSTRUCTCREATE for utsname2 with error = ',ierror
else
CALL PXFUNAME(jhandle1,ierror)
if (ierror .ne. 0) then
print *,' FAILED: PXFUNAME for utsname1 with error = ',ierror
else
CALL PXFSTRUCTCOPY('utsname',jhandle1,jhandle2,ierror)
if (ierror .ne. 0) then
print *,' FAILED: PXFSTRUCTCOPY with error = ', ierror
else
print *,' PASSED: PXFSTRUCTCOPY test for utsname struct'
endif
endif
endif
endif
CALL PXFSTRUCTFREE(jhandle1,ierror)
CALL PXFSTRUCTFREE(jhandle2,ierror)
end
SEE ALSOPXFSTRUCTCREATE(3F), PXFUNAME(3F)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
