Searched refs:amg_I_rowp (Results 1 – 1 of 1) sorted by relevance
46 type(i2dd) :: amg_I_rowp local202 allocate(amg_I_rowp%pp(amg_nshg(level1)),stat=mem_err)219 allocate(amg_I_rowp%pp(i)%p(1))222 amg_I_rowp%pp(i)%p(1) = amg_Ip(i)354 allocate(amg_I_rowp%pp(i)%p(I_nnz))357 amg_I_rowp%pp(i)%p(k) = amg_Ip(amg_Fn(k))384 I_cf_rowp(level1)%p(mnnz+j)=amg_I_rowp%pp(i)%p(j)402 deallocate(amg_I_rowp%pp(i)%p,stat=mem_err)410 deallocate(amg_I_rowp%pp,stat=mem_err)