Lines Matching refs:amg_ilwork
709 allocate(amg_ilwork(lvl)%p(tasknnztot+1+2*numtask))
710 amg_ilwork(lvl)%p = 0
712 amg_ilwork(lvl)%p(1) = numtask
720 amg_ilwork(lvl)%p(kk) = iother ! first put iother
722 amg_ilwork(lvl)%p(kk) = tasknnz(i) ! then numseg
728 amg_ilwork(lvl)%p(kk)=lvlmap(k)
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),:)
975 numseg(i)=amg_ilwork(level)%p(itkbeg+2)
979 global(amg_ilwork(level)%p(itkbeg),:)=tmparray(i)%p(j,:)
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