Searched refs:row_fill_list (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | asadj.f | 1 subroutine Asadj ( row_fill_list, argument
10 integer row_fill_list(nshg,15*nnz), local
33 if(row_fill_list(jnd,l).eq. knd) then
48 row_fill_list(jnd,jlngth)=knd ! add unique entry to list
|
| H A D | genadj.f | 8 integer adjcnt(nshg), row_fill_list(nshg,15*nnz), mloc(1) local
31 call Asadj (row_fill_list,
57 tmpr(1:ncol)=row_fill_list(i,1:ncol)
|