RPN_COMM

(RPN_COMM_defo)



subroutine RPN_COMM_defo(comm)



ARGUMENTS


commCommunicator's namecharacter*(*)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