subroutine RPN_COMM_defo(comm)
ARGUMENTS
| comm | Communicator's name | character*(*) | I |
DESCRIPTION
Sets default communicator "DEFO" to the specified communicator.
It will allow the use of most RPN_COMM higher level routines
to be used over that communicator
EXAMPLE
!
! Here, the sum is computed over the domain (default of
! the default...)
!
call RPN_COMM_globalsum(array,minx,maxx,miny,maxy, &
nptsz,nil,njl,njlmax,gnj,sum)
!
! We change the default communicator from "DOMM" to "BLOC"
!
call RPN_COMM_defo("BLOC")
!
! Here, the sum is computed over the "BLOC" communicator
!
call RPN_COMM_globalsum(array,minx,maxx,miny,maxy, &
nptsz,nil,njl,njlmax,gnj,sum)
!
! Switch back to its initial value
!
call RPN_COMM_defo("DOMM")
SEE ALSO
RPN_COMM_*
Return to RPN Libraries home page