UPP (develop)
Loading...
Searching...
No Matches
COLLECT.f
Go to the documentation of this file.
1
15!-----------------------------------------------------------------------
20!-----------------------------------------------------------------------
21 SUBROUTINE collect (A, B)
22
23
24 use ctlblk_mod, only: num_procs, jsta, icnt, idsp, mpi_comm_comp, im, jm, me
25!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
26!
27 implicit none
28!
29 include 'mpif.h'
30!
31 real,intent(in) :: a ( im, jm )
32 real,intent(out) :: b ( im, jm )
33! integer i, j
34 integer ierr
35!
36 if ( num_procs <= 1 ) then
37 b = a
38 else
39 call mpi_gatherv(a(1,jsta),icnt(me),mpi_real, &
40 & b,icnt,idsp,mpi_real,0,mpi_comm_comp,ierr)
41 end if
42 end
subroutine collect(a, b)
COLLECT() Subroutine that collect gathers from all MPI tasks.
Definition COLLECT.f:22