pxfstructcopy(3F)

NAME
     PXFSTRUCTCOPY - Copies structure

SYNOPSIS
     SUBROUTINE PXFSTRUCTCOPY (structname, jhandle1, jhandle2, ierror)
     INTEGER jhandle1, jhandle2, ierror
     CHARACTER*n structname

STANDARDS
     IEEE standard interface for FORTRAN 77

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 PXFSTRUCTCOPY routine copies structures created with
     PXFSTRUCTCREATE(3F). The structure referenced by jhandle1 is copied to
     the structure referenced by jhandle2.

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

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

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 ALSO
     PXFSTRUCTCREATE(3F), PXFUNAME(3F)