Searched refs:mnnz (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ITAI.f | 14 integer :: i,j,k,p,q,mnnz local
17 mnnz = 1
20 c_colm(i) = mnnz
27 mnnz = mnnz + 1
32 c_colm(m+1) = mnnz
46 integer :: i,j,k,p,q,mnnz local
49 mnnz = 0
53 mnnz = mnnz + 1
54 c_rowp(mnnz) = i
63 mnnz = mnnz + 1
[all …]
|
| H A D | ramg_extract.f | 51 integer :: mnnz
154 mnnz = 1
157 amg_A_colm(1)%p(i) = mnnz
176 mnnz = mnnz + 1
182 amg_A_colm(1)%p(nshg+1) = mnnz
183 mnnz = mnnz - 1
185 call ramg_allocate(1,0,mnnz,1)
197 mnnz = 0
203 mnnz = mnnz + 1
204 amg_A_rowp(1)%p(mnnz) = i
[all …]
|
| H A D | ramg_coarse.f | 44 integer :: mnnz local
213 mnnz = 0
224 mnnz = mnnz + 1
352 mnnz = mnnz + I_nnz
373 allocate(I_cf_rowp(level1)%p(mnnz),stat=mem_err)
375 allocate(I_cf(level1)%p(mnnz),stat=mem_err)
380 mnnz = 0
382 I_cf_colm(level1)%p(i)=mnnz+1
384 I_cf_rowp(level1)%p(mnnz+j)=amg_I_rowp%pp(i)%p(j)
385 I_cf(level1)%p(mnnz+j)=amg_I%pp(i)%p(j)
[all …]
|