Searched refs:iotheri (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 908 integer :: iother(ilwork(1)),ierr,iotheri local
952 iotheri = iabs(iother(i))-1
956 & MPI_DOUBLE_PRECISION,iotheri,itag(i),MPI_COMM_WORLD,
961 & MPI_DOUBLE_PRECISION,iotheri,itag(i),MPI_COMM_WORLD,
1004 integer :: iother(ilwork(1)),ierr,iotheri local
1041 iotheri = iabs(iother(i))-1
1044 & MPI_DOUBLE_PRECISION,iotheri,itag(i),MPI_COMM_WORLD,
1048 & MPI_DOUBLE_PRECISION,iotheri,itag(i),MPI_COMM_WORLD,
|