Lines Matching refs:tmparray
912 type(r2d),dimension(ilwork(1)) :: tmparray local
933 allocate(tmparray(i)%p(numseg(i),redun))
937 tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
955 call MPI_ISEND(tmparray(i)%p(1,1),redun*numseg(i),
960 call MPI_IRECV(tmparray(i)%p(1,1),redun*numseg(i),
979 global(amg_ilwork(level)%p(itkbeg),:)=tmparray(i)%p(j,:)
984 deallocate(tmparray(i)%p)
1008 type(r2d),dimension(ilwork(1)) :: tmparray local
1029 allocate(tmparray(i)%p(numseg(i),redun))
1033 tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
1043 call MPI_IRECV(tmparray(i)%p(1,1),redun*numseg(i),
1047 call MPI_ISEND(tmparray(i)%p(1,1),redun*numseg(i),
1068 & global(amg_ilwork(level)%p(itkbeg),:)+tmparray(i)%p(j,:)
1076 deallocate(tmparray(i)%p)