Searched refs:amg_ilwork (Results 1 – 4 of 4) sorted by relevance
709 allocate(amg_ilwork(lvl)%p(tasknnztot+1+2*numtask))710 amg_ilwork(lvl)%p = 0712 amg_ilwork(lvl)%p(1) = numtask720 amg_ilwork(lvl)%p(kk) = iother ! first put iother722 amg_ilwork(lvl)%p(kk) = tasknnz(i) ! then numseg728 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),:)[all …]
65 type(i1d),dimension(MAXAMGLVL) :: amg_ilwork variable
657 if (associated(amg_ilwork(level)%p)) then658 deallocate(amg_ilwork(level)%p,
53 matrices. amg_para* arrays are for communication. amg_ilwork, amg_nlwork