Lines Matching refs:m
31 integer :: numtask,i,j,k,m,p,ki,kj,krowp,ierr local
67 m = 0
89 m = m+1
142 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
144 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
148 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
150 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
154 m = m + 1
161 call MPI_WAITALL(m,req,stat,ierr)
168 m = 0
173 m = m+1
206 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
208 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
212 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
214 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
216 m = m + 2
220 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
223 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
228 & iother,itag,MPI_COMM_WORLD,req(m),ierr)
231 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr)
234 m = m + 1
241 call MPI_WAITALL(m,req,stat,ierr)
907 integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k local
949 m =0
951 m = m+1
957 & req(m),ierr)
962 & req(m),ierr)
968 call MPI_WAITALL(m,req,mstat,ierr)
1003 integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k local
1038 m =0
1040 m = m+1
1045 & req(m),ierr)
1049 & req(m),ierr)
1055 call MPI_WAITALL(m,req,mstat,ierr)