Lines Matching refs:i
50 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
61 i = tF - 1
62 i = cS(i)%ptr + cS(i)%n - 1
63 ALLOCATE(rTmp(dof,i))
66 DO i=1, nTasks
67 IF (cS(i)%tag .NE. 0) THEN
68 s = cS(i)%ptr
69 e = s + cS(i)%n - 1
70 IF (i .LT. tF) THEN
71 CALL MPI_IRECV(rTmp(:,s:e), cS(i)%n*dof, mpreal, i-1,
72 2 cS(i)%tag, comm, cS(i)%req, ierr)
74 CALL MPI_ISEND(R(:,s:e), cS(i)%n*dof, mpreal, i-1,
75 2 cS(i)%tag, comm, cS(i)%req, ierr)
81 DO i=1, tF - 1
82 IF (cS(i)%tag .NE. 0) THEN
83 CALL MPI_WAIT(cS(i)%req, stat, ierr)
84 DO j=1, cS(i)%nBl
85 s = cS(i)%blPtr(j)
86 e = s + cS(i)%blN(j) - 1
88 k = k + cS(i)%blN(j)
94 DO i=1, tF - 1
95 DO j=1, cS(i)%nBl
96 s = cS(i)%blPtr(j)
97 e = s + cS(i)%blN(j) - 1
99 k = k + cS(i)%blN(j)
103 DO i=1, nTasks
104 IF (cS(i)%tag .NE. 0) THEN
105 s = cS(i)%ptr
106 e = s + cS(i)%n - 1
107 IF (i .GT. tF) THEN
108 CALL MPI_WAIT(cS(i)%req, stat, ierr)
109 CALL MPI_IRECV(R(:,s:e), cS(i)%n*dof, mpreal, i-1,
110 2 cS(i)%tag, comm, cS(i)%req, ierr)
112 CALL MPI_ISEND(rTmp(:,s:e), cS(i)%n*dof, mpreal, i-1,
113 2 cS(i)%tag, comm, cS(i)%req, ierr)
118 DO i=1, nTasks
119 IF (cS(i)%tag .NE. 0) THEN
120 CALL MPI_WAIT(cS(i)%req, stat, ierr)
138 INTEGER i, j, k, s, e, ierr, nTasks, tF, stat(MPI_STATUS_SIZE) local
149 i = tF - 1
150 i = cS(i)%ptr + cS(i)%n - 1
151 ALLOCATE(rTmp(i))
154 DO i=1, nTasks
155 IF (cS(i)%tag .NE. 0) THEN
156 s = cS(i)%ptr
157 e = s + cS(i)%n - 1
158 IF (i .LT. tF) THEN
159 CALL MPI_IRECV(rTmp(s:e), cS(i)%n, mpreal, i-1,
160 2 cS(i)%tag, comm, cS(i)%req, ierr)
162 CALL MPI_ISEND(R(s:e), cS(i)%n, mpreal, i-1,
163 2 cS(i)%tag, comm, cS(i)%req, ierr)
169 DO i=1, tF - 1
170 IF (cS(i)%tag .NE. 0) THEN
171 CALL MPI_WAIT(cS(i)%req, stat, ierr)
172 DO j=1, cS(i)%nBl
173 s = cS(i)%blPtr(j)
174 e = s + cS(i)%blN(j) - 1
176 k = k + cS(i)%blN(j)
182 DO i=1, tF - 1
183 DO j=1, cS(i)%nBl
184 s = cS(i)%blPtr(j)
185 e = s + cS(i)%blN(j) - 1
187 k = k + cS(i)%blN(j)
191 DO i=1, nTasks
192 IF (cS(i)%tag .NE. 0) THEN
193 s = cS(i)%ptr
194 e = s + cS(i)%n - 1
195 IF (i .GT. tF) THEN
196 CALL MPI_WAIT(cS(i)%req, stat, ierr)
197 CALL MPI_IRECV(R(s:e), cS(i)%n, mpreal, i-1,
198 2 cS(i)%tag, comm, cS(i)%req, ierr)
200 CALL MPI_ISEND(rTmp(s:e), cS(i)%n, mpreal, i-1,
201 2 cS(i)%tag, comm, cS(i)%req, ierr)
206 DO i=1, nTasks
207 IF (cS(i)%tag .NE. 0) THEN
208 CALL MPI_WAIT(cS(i)%req, stat, ierr)