Lines Matching refs:e
50 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
69 e = s + cS(i)%n - 1
71 CALL MPI_IRECV(rTmp(:,s:e), cS(i)%n*dof, mpreal, i-1,
74 CALL MPI_ISEND(R(:,s:e), cS(i)%n*dof, mpreal, i-1,
86 e = s + cS(i)%blN(j) - 1
87 R(:,s:e) = R(:,s:e) + rTmp(:,k:k+e-s)
97 e = s + cS(i)%blN(j) - 1
98 rTmp(:,k:k+e-s) = R(:,s:e)
106 e = s + cS(i)%n - 1
109 CALL MPI_IRECV(R(:,s:e), cS(i)%n*dof, mpreal, i-1,
112 CALL MPI_ISEND(rTmp(:,s:e), cS(i)%n*dof, mpreal, i-1,
138 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
157 e = s + cS(i)%n - 1
159 CALL MPI_IRECV(rTmp(s:e), cS(i)%n, mpreal, i-1,
162 CALL MPI_ISEND(R(s:e), cS(i)%n, mpreal, i-1,
174 e = s + cS(i)%blN(j) - 1
175 R(s:e) = R(s:e) + rTmp(k:k+e-s)
185 e = s + cS(i)%blN(j) - 1
186 rTmp(k:k+e-s) = R(s:e)
194 e = s + cS(i)%n - 1
197 CALL MPI_IRECV(R(s:e), cS(i)%n, mpreal, i-1,
200 CALL MPI_ISEND(rTmp(s:e), cS(i)%n, mpreal, i-1,