Lines Matching refs:k
50 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
80 k = 1
87 R(:,s:e) = R(:,s:e) + rTmp(:,k:k+e-s)
88 k = k + cS(i)%blN(j)
93 k = 1
98 rTmp(:,k:k+e-s) = R(:,s:e)
99 k = k + cS(i)%blN(j)
138 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
168 k = 1
175 R(s:e) = R(s:e) + rTmp(k:k+e-s)
176 k = k + cS(i)%blN(j)
181 k = 1
186 rTmp(k:k+e-s) = R(s:e)
187 k = k + cS(i)%blN(j)