Home
last modified time | relevance | path

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

/phasta/phSolver/AMG/
H A Dramg_ITAI.f142 call mtx_colm(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
152 call mtx_rowp(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
160 call mtx_mtx(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
174 call mtx_colm(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
183 call mtx_rowp(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
190 call mtx_mtx(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
H A Dramg_coarse.f422 allocate(I_fc_colm(level1)%p(amg_nshg(level2)+1),stat=mem_err)
432 I_fc_colm(level1)%p(1:amg_nshg(level2)+1) = 0
434 I_fc_colm(level1)%p(I_cf_rowp(level1)%p(i)) =
435 & I_fc_colm(level1)%p(I_cf_rowp(level1)%p(i)) + 1
439 j = I_fc_colm(level1)%p(i)
440 I_fc_colm(level1)%p(i) = mnnz
443 I_fc_colm(level1)%p(amg_nshg(level2)+1) = mnnz
448 kj = I_fc_colm(level1)%p(j)
449 I_fc_colm(level1)%p(j) = I_fc_colm(level1)%p(j) + 1
456 I_fc_colm(level1)%p(i) = I_fc_colm(level1)%p(i-1)
[all …]
H A Dramg_data.f87 type(i1d),dimension(MAXAMGLVL) :: I_fc_colm variable
H A Dramg_tools.f80 do k=I_fc_colm(level1)%p(i),I_fc_colm(level1)%p(i+1)-1
679 if (associated(I_fc_colm(level)%p)) then
690 deallocate(I_fc_colm(level)%p,stat=mem_err)