Lines Matching refs:global
869 subroutine commOut_i(global,ilwork,n,iper,iBC,BC) argument
871 integer global(nshg,n) local
879 aglobal(i,j) = global(i,j)
885 global(i,j)=aglobal(i,j)
893 subroutine ramg_commOut(global,level,ilwork,redun,iper,iBC,BC) argument
902 & :: global local
917 call commOut(global,ilwork,1,iper,iBC,BC)
937 tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
979 global(amg_ilwork(level)%p(itkbeg),:)=tmparray(i)%p(j,:)
989 subroutine ramg_commIn(global,level,ilwork,redun,iper,iBC,BC) argument
998 & :: global local
1013 call commIn(global,ilwork,1,iper,iBC,BC)
1033 tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
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