Lines Matching refs:ramg_levelx
50 call ramg_direct_LU(amg_A_colm(ramg_levelx)%p,
51 & amg_A_rowp(ramg_levelx)%p,
52 & amg_A_lhs(ramg_levelx)%p,amg_nshg(ramg_levelx),
53 & amg_nnz(ramg_levelx))
112 ramg_levelx=i
114 ramg_levelx = ramg_levelx-1
124 allocate(CF_map(ramg_levelx)%p(amg_nshg(ramg_levelx)))
125 allocate(CF_revmap(ramg_levelx)%p(amg_nshg(ramg_levelx)))
126 do i=1,amg_nshg(ramg_levelx)
127 CF_map(ramg_levelx)%p(i) = i
128 CF_revmap(ramg_levelx)%p(i) = i