Searched refs:clevel (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_driver.f | 16 & ramg_sol,ramg_rhs,clevel, argument
25 integer, intent(in) :: clevel local
26 real(kind=8),intent(inout),dimension(amg_nshg(clevel))
39 real(kind=8),dimension(amg_nshg(clevel)) :: myvF,myvE
45 if (clevel.ne.1) then
46 ramg_rhs = ramg_rhs*amg_ppeDiag(clevel)%p
49 if (ramg_levelx-clevel .eq. 0) then
57 else if (ramg_levelx-clevel .gt. 0) then
58 allocate(myvC(amg_nshg(clevel+1)))
59 allocate(myvCS(amg_nshg(clevel+1)))
[all …]
|
| H A D | ramg_ggb.f | 269 & clevel, argument
278 integer, intent(in) :: clevel local
293 real(kind=8),dimension(amg_nshg(clevel)) :: vF
300 call ramg_calcAv_g(clevel,vF,ramg_rhs,colm,rowp,lhsK,lhsP,
315 & clevel, argument
323 integer, intent(in) :: clevel local
324 real(kind=8),intent(inout),dimension(amg_nshg(clevel))
337 real(kind=8),dimension(amg_nshg(clevel)) :: ggberr
346 call ramg_calcAv_g(clevel,ggberr,ramg_sol,colm,rowp,lhsK,lhsP,
353 do j=1,amg_nshg(clevel)
[all …]
|
| H A D | ramg_smoother.f | 97 & r,u,v,clevel,pflag, argument
110 integer,intent(in) :: clevel local
129 call ramg_calcAv_b(clevel,tmp,v2,ilwork,BC,iBC,iper,1,0)
137 cf1 = 1.1*mlsCf(clevel,1)
144 p = amg_paraext(clevel)%p(i)
145 q = amg_paramap(clevel)%p(i)
168 & r,u,v,fwdbck,clevel, argument
182 integer,intent(in) :: clevel local
214 & r,u,v,clevel,pflag,ilwork,BC,iBC,iper)
219 ki = CF_map(clevel)%p(i)
[all …]
|