Lines Matching refs:redun
10 & redun, argument
20 integer,intent(in) :: redun local
21 real(kind=8),intent(in),dimension(redun,annz_tot) :: alhsP
34 integer :: stat(MPI_STATUS_SIZE,redun*numpe),req(redun*numpe)
37 real(kind=8) :: swaptemp(redun)
47 real(kind=8),dimension(redun,nshg) :: tmp_rmtx
57 allocate(lhsGP%p(redun,annz_tot),stat=ierr)
184 allocate(sub_mtx%pp(i)%p(redun,sub_nnz%p(i)))
185 allocate(sub_mtx2%pp(i)%p(redun,sub_nnz2%p(i)))
197 do p=1,redun
218 call MPI_ISEND(sub_mtx%pp(i)%p(1,1),redun*sub_nnz%p(i),
221 call MPI_IRECV(sub_mtx2%pp(i)%p(1,1),redun*sub_nnz2%p(i),
226 call MPI_IRECV(sub_mtx2%pp(i)%p(1,1),redun*sub_nnz2%p(i),
229 call MPI_ISEND(sub_mtx%pp(i)%p(1,1),redun*sub_nnz%p(i),
320 do p=1,redun
329 allocate(Pmtx%pp(ki)%p(redun,rownnz))
378 allocate(lhsGP%p(redun,rownnz))
399 if (redun.eq.1) then
420 if (redun.eq.1) then ! check PPE
893 subroutine ramg_commOut(global,level,ilwork,redun,iper,iBC,BC) argument
900 integer,intent(in) :: redun local
901 real(kind=8),intent(inout),dimension(amg_nshg(level),redun)
933 allocate(tmparray(i)%p(numseg(i),redun))
955 call MPI_ISEND(tmparray(i)%p(1,1),redun*numseg(i),
960 call MPI_IRECV(tmparray(i)%p(1,1),redun*numseg(i),
989 subroutine ramg_commIn(global,level,ilwork,redun,iper,iBC,BC) argument
996 integer,intent(in) :: redun local
997 real(kind=8),intent(inout),dimension(amg_nshg(level),redun)
1029 allocate(tmparray(i)%p(numseg(i),redun))
1043 call MPI_IRECV(tmparray(i)%p(1,1),redun*numseg(i),
1047 call MPI_ISEND(tmparray(i)%p(1,1),redun*numseg(i),