24 use ctlblk_mod,
only: num_procs, jsta, icnt, idsp, mpi_comm_comp, im, jm, me
31 real,
intent(in) :: a ( im, jm )
32 real,
intent(out) :: b ( im, jm )
36 if ( num_procs <= 1 )
then
39 call mpi_gatherv(a(1,jsta),icnt(me),mpi_real, &
40 & b,icnt,idsp,mpi_real,0,mpi_comm_comp,ierr)