COLLECT.f

Go to the documentation of this file.

 
!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
      SUBROUTINE collect (A, B) 
 
 
      use ctlblk_mod, only: num_procs, jsta, icnt, idsp, mpi_comm_comp, im, jm, me
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
      implicit none
!
      include 'mpif.h'
!
      real,intent(in)  :: a ( im, jm ) 
      real,intent(out) :: b ( im, jm ) 
!     integer i, j
      integer ierr
!
      if ( num_procs <= 1 ) then
         b = a
      else
         call mpi_gatherv(a(1,jsta),icnt(me),mpi_real,              &
     &                    b,icnt,idsp,mpi_real,0,mpi_comm_comp,ierr)
      end if
      end