Searched refs:rTmp (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | INCOMMU.f | 52 REAL*8, ALLOCATABLE :: rTmp(:,:) local
63 ALLOCATE(rTmp(dof,i))
71 CALL MPI_IRECV(rTmp(:,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)
112 CALL MPI_ISEND(rTmp(:,s:e), cS(i)%n*dof, mpreal, i-1,
140 REAL*8, ALLOCATABLE :: rTmp(:) local
151 ALLOCATE(rTmp(i))
159 CALL MPI_IRECV(rTmp(s:e), cS(i)%n, mpreal, i-1,
175 R(s:e) = R(s:e) + rTmp(k:k+e-s)
[all …]
|