Home
last modified time | relevance | path

Searched refs:ramg_levelx (Results 1 – 8 of 8) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_control.f50 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
[all …]
H A Dramg_smoother.f331 real(kind=8),intent(in),dimension(amg_nshg(ramg_levelx))
333 real(kind=8),intent(inout),dimension(amg_nshg(ramg_levelx))
345 real(kind=8),dimension(amg_nshg(ramg_levelx)) :: myV
350 cl = ramg_levelx
H A Dramg_tools.f262 type(r1d),dimension(ramg_levelx) :: tarray
265 do i=1,ramg_levelx
272 do i=1,ramg_levelx
277 do i=1,ramg_levelx
283 do i=1,ramg_levelx
297 do i=1,ramg_levelx
H A Dramg_data.f77 integer :: ramg_levelx variable
H A Dramg_mls.f156 ramg_levelx = level-1
336 ramg_levelx = level-1
400 do lvl=1,ramg_levelx
546 do lvl = 1,ramg_levelx
H A Dramg_cheby.f128 do lvl=1,ramg_levelx
H A Dramg_driver.f49 if (ramg_levelx-clevel .eq. 0) then
57 else if (ramg_levelx-clevel .gt. 0) then
H A Dramg_paratools.f674 do lvl = 1,ramg_levelx