1subroutine distribute_global_column_&
3&(obj, g_col, l_col, noff, nlen, my_prow, np_rows, nblk)
7#include "../general/precision_kinds.F90"
10 integer(kind=ik) :: noff, nlen, my_prow, np_rows, nblk
11 real(kind=rk) :: g_col(nlen), l_col(*)
13 integer(kind=ik) :: nbs, nbe, jb, g_off, l_off, js, je
15 nbs = noff/(nblk*np_rows)
16 nbe = (noff+nlen-1)/(nblk*np_rows)
19 g_off = jb*nblk*np_rows + nblk*my_prow
22 js = max(noff+1-g_off,1)
23 je = min(noff+nlen-g_off,nblk)
27 l_col(l_off+js:l_off+je) = g_col(g_off+js-noff:g_off+je-noff)