Searched refs:amg_I (Results 1 – 2 of 2) sorted by relevance
47 type(r2dd) :: amg_I local204 allocate(amg_I%pp(amg_nshg(level1)),stat=mem_err)220 allocate(amg_I%pp(i)%p(1))223 amg_I%pp(i)%p(1) = 1355 allocate(amg_I%pp(i)%p(I_nnz))360 amg_I%pp(i)%p(k) = amg_la(k)362 amg_I%pp(i)%p(k) = amg_la(k)385 I_cf(level1)%p(mnnz+j)=amg_I%pp(i)%p(j)404 deallocate(amg_I%pp(i)%p,stat=mem_err)412 deallocate(amg_I%pp,stat=mem_err)
91 Then we build temp variable amg_I for interpolation operator.93 once. amg_I is used then. It's an array of allocatable pointers. So we