Home
last modified time | relevance | path

Searched refs:tasknnz (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_paratools.f658 integer,dimension(ilwork(1)) :: tasknnz,iotherl local
690 tasknnz = 0
698 tasknnz(i) = tasknnz(i) + 1
703 tasknnztot = sum(tasknnz)
722 amg_ilwork(lvl)%p(kk) = tasknnz(i) ! then numseg