SUBROUTINE RPN_COMM_coll (garr,gmini,gmaxi,gminj,
     %          gmaxj,nig,njg,nk,ghalox,ghaloy,size,
     %          larr,mini,maxi,minj,maxj,halox,haloy,
     %          ierr)

ARGUMENTS

garr	Global array receiving data	integer, real or real*8	O
gmini,gmaxi,gminj,gmaxj	Size of garr	integer	I
nig,njg	Domain size	integer	I
nk	Z axis size	integer	I
ghalox,ghaloy	Halo size of garr for x and y axis	integer	I
size	1 for integer and real, 2 for real*8, etc.	integer	I
larr	Local array that will be collected	integer, real ou real*8	I
mini,maxi,minj,maxj	Size of larr	integer	I
halox,haloy	Halo size of larr for x and y axis	integer	I
ierr	ierr (0 if ok, non-0 if error)	integer	I

+-+ +-+ +-+       +---------+
|3| |4| |5|       |         |
+-+ +-+ +-+  ->   | On P0   |
+-+ +-+ +-+       |         |
|0| |1| |2|       |         |
+-+ +-+ +-+       +---------+

DESCRIPTION

If ghalox/y >0 and if halox/y >0, the halo of the receiving array will be filled as well.

Warning (for the librarian): This module must be compiled with -O2 or -O2 when using n32 mode on SGI. (This problem is not relevant if RPN_COMM_coll is used through the library since it is compiled correctly)

EXAMPLE

SEE ALSO