Searched refs:tmparray (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 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),:)
[all …]
|