Lines Matching refs:pp
202 allocate(amg_I_rowp%pp(amg_nshg(level1)),stat=mem_err)
204 allocate(amg_I%pp(amg_nshg(level1)),stat=mem_err)
219 allocate(amg_I_rowp%pp(i)%p(1))
220 allocate(amg_I%pp(i)%p(1))
222 amg_I_rowp%pp(i)%p(1) = amg_Ip(i)
223 amg_I%pp(i)%p(1) = 1
354 allocate(amg_I_rowp%pp(i)%p(I_nnz))
355 allocate(amg_I%pp(i)%p(I_nnz))
357 amg_I_rowp%pp(i)%p(k) = amg_Ip(amg_Fn(k))
360 amg_I%pp(i)%p(k) = amg_la(k)
362 amg_I%pp(i)%p(k) = amg_la(k)
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)
402 deallocate(amg_I_rowp%pp(i)%p,stat=mem_err)
404 deallocate(amg_I%pp(i)%p,stat=mem_err)
410 deallocate(amg_I_rowp%pp,stat=mem_err)
412 deallocate(amg_I%pp,stat=mem_err)