COLLECT_LOC.f

Go to the documentation of this file.

      SUBROUTINE collect_loc ( A, B ) 


      use ctlblk_mod, only: num_procs, jsta, icnt, idsp, mpi_comm_comp, im,&
              jsta_2l, jend_2u, jm, me
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      implicit none
!
      include 'mpif.h'
      real, dimension(im,jsta_2l:jend_2u), intent(in) :: a
      real, dimension(im,jm), intent(out) :: b
      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