Lines Matching refs:amg_nshg
29 real(kind=8),intent(inout),dimension(amg_nshg(level1)) :: vf
30 real(kind=8),intent(in),dimension(amg_nshg(level2)) :: VC
43 do i=1,amg_nshg(level1)
69 real(kind=8),intent(in),dimension(amg_nshg(level1)) :: vf
70 real(kind=8),intent(inout),dimension(amg_nshg(level2)) :: VC
79 do i=1,amg_nshg(level2)
153 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v
154 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
170 do i=1,amg_nshg(level)
211 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v
212 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
226 do i=1,amg_nshg(level)
266 allocate(tarray(i)%p(amg_nshg(i)))
267 do j=1,amg_nshg(i)
274 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
280 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
286 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
490 real(kind=8),intent(in),dimension(amg_nshg(level),redun) ::v,u
495 do i=1,amg_nshg(level)
532 real(kind=8),intent(in),dimension(amg_nshg(level),vflow) :: v
537 do i=1,amg_nshg(level)
574 amg_nshg(level) = lnshg
575 allocate(amg_A_colm(level)%p(amg_nshg(level)+1),
578 allocate(amg_A_rhs(level)%p(amg_nshg(level)),
581 allocate(amg_ppeDiag(level)%p(amg_nshg(level)),
698 amg_nshg(level) = 0