Lines Matching refs:R
41 SUBROUTINE COMMUV(dof, nNo, commu, cS, R) argument
48 REAL*8, INTENT(INOUT) :: R(dof,nNo) local
74 CALL MPI_ISEND(R(:,s:e), cS(i)%n*dof, mpreal, i-1,
87 R(:,s:e) = R(:,s:e) + rTmp(:,k:k+e-s)
98 rTmp(:,k:k+e-s) = R(:,s:e)
109 CALL MPI_IRECV(R(:,s:e), cS(i)%n*dof, mpreal, i-1,
129 SUBROUTINE COMMUS(nNo, commu, cS, R) argument
136 REAL*8, INTENT(INOUT) :: R(nNo) local
162 CALL MPI_ISEND(R(s:e), cS(i)%n, mpreal, i-1,
175 R(s:e) = R(s:e) + rTmp(k:k+e-s)
186 rTmp(k:k+e-s) = R(s:e)
197 CALL MPI_IRECV(R(s:e), cS(i)%n, mpreal, i-1,