893       subroutine ramg_commOut(global,level,ilwork,redun,iper,iBC,BC)  argument
899       integer,intent(in)                            :: level  local
901       real(kind=8),intent(inout),dimension(amg_nshg(level),redun) 
916       if (level.eq.1) then
921       numtask = amg_ilwork(level)%p(1)
931          iother(i)=amg_ilwork(level)%p(itkbeg+1)
932          numseg(i)=amg_ilwork(level)%p(itkbeg+2)
937          tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
941       if ((myrank.eq.1).and.(level.eq.2)) then ! debug
975          numseg(i)=amg_ilwork(level)%p(itkbeg+2)
979             global(amg_ilwork(level)%p(itkbeg),:)=tmparray(i)%p(j,:)
989       subroutine ramg_commIn(global,level,ilwork,redun,iper,iBC,BC)  argument
995       integer,intent(in)                            :: level  local
997       real(kind=8),intent(inout),dimension(amg_nshg(level),redun) 
1012       if (level.eq.1) then
1017       numtask = amg_ilwork(level)%p(1)
1027          iother(i)=amg_ilwork(level)%p(itkbeg+1)
1028          numseg(i)=amg_ilwork(level)%p(itkbeg+2)
1033          tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
1062          numseg(i)=amg_ilwork(level)%p(itkbeg+2)
1067             global(amg_ilwork(level)%p(itkbeg),:)=
1068      &      global(amg_ilwork(level)%p(itkbeg),:)+tmparray(i)%p(j,:)
1070             global(amg_ilwork(level)%p(itkbeg),:)=0
1081       subroutine ramg_mapv2g(level,carray,garray)  argument
1085       integer,intent(in)            :: level  local
1087       real(kind=8),intent(in),dimension(amg_nshg(level)) :: carray
1090       integer,dimension(amg_nshg(level)) :: revmap
1095          if (amg_cfmap(i).ge.level) then
1106       subroutine ramg_mapg2v(level,carray,garray)  argument
1109       integer,intent(in)            :: level  local
1111       real(kind=8),intent(inout),dimension(amg_nshg(level)) ::carray
1116          if (amg_cfmap(i).ge.level) then