fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix mlprec_aply

Browse Source
remap-coarse
sfilippone 3 months ago
parent d833362f4b
commit 62f5501761
4 changed files with 132 additions and 136 deletions
Show Stats Download Patch File Download Diff File

3
amgprec/impl/amg_cmlprec_aply.f90
Unescape Escape View File

@ -508,7 +508,6 @@ contains
& base_desc, trans,& & base_desc, trans,&
& ione,work,wv,info,init='Z') & ione,work,wv,info,init='Z')
end do end do
else else
sweeps = p%precv(level)%parms%sweeps_pre sweeps = p%precv(level)%parms%sweeps_pre
call p%precv(level)%sm%apply(cone,& call p%precv(level)%sm%apply(cone,&
@ -522,7 +521,6 @@ contains
& a_err='Error during ADD smoother_apply') & a_err='Error during ADD smoother_apply')
goto 9999 goto 9999
end if end if
end if
if (level < nlev) then if (level < nlev) then
! Apply the restriction ! Apply the restriction
@ -556,6 +554,7 @@ contains
goto 9999 goto 9999
end if end if
end if
end associate end associate
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

3
amgprec/impl/amg_dmlprec_aply.f90
Unescape Escape View File

@ -508,7 +508,6 @@ contains
& base_desc, trans,& & base_desc, trans,&
& ione,work,wv,info,init='Z') & ione,work,wv,info,init='Z')
end do end do
else else
sweeps = p%precv(level)%parms%sweeps_pre sweeps = p%precv(level)%parms%sweeps_pre
call p%precv(level)%sm%apply(done,& call p%precv(level)%sm%apply(done,&
@ -522,7 +521,6 @@ contains
& a_err='Error during ADD smoother_apply') & a_err='Error during ADD smoother_apply')
goto 9999 goto 9999
end if end if
end if
if (level < nlev) then if (level < nlev) then
! Apply the restriction ! Apply the restriction
@ -556,6 +554,7 @@ contains
goto 9999 goto 9999
end if end if
end if
end associate end associate
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

3
amgprec/impl/amg_smlprec_aply.f90
Unescape Escape View File

@ -508,7 +508,6 @@ contains
& base_desc, trans,& & base_desc, trans,&
& ione,work,wv,info,init='Z') & ione,work,wv,info,init='Z')
end do end do
else else
sweeps = p%precv(level)%parms%sweeps_pre sweeps = p%precv(level)%parms%sweeps_pre
call p%precv(level)%sm%apply(sone,& call p%precv(level)%sm%apply(sone,&
@ -522,7 +521,6 @@ contains
& a_err='Error during ADD smoother_apply') & a_err='Error during ADD smoother_apply')
goto 9999 goto 9999
end if end if
end if
if (level < nlev) then if (level < nlev) then
! Apply the restriction ! Apply the restriction
@ -556,6 +554,7 @@ contains
goto 9999 goto 9999
end if end if
end if
end associate end associate
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

3
amgprec/impl/amg_zmlprec_aply.f90
Unescape Escape View File

@ -508,7 +508,6 @@ contains
& base_desc, trans,& & base_desc, trans,&
& ione,work,wv,info,init='Z') & ione,work,wv,info,init='Z')
end do end do
else else
sweeps = p%precv(level)%parms%sweeps_pre sweeps = p%precv(level)%parms%sweeps_pre
call p%precv(level)%sm%apply(zone,& call p%precv(level)%sm%apply(zone,&
@ -522,7 +521,6 @@ contains
& a_err='Error during ADD smoother_apply') & a_err='Error during ADD smoother_apply')
goto 9999 goto 9999
end if end if
end if
if (level < nlev) then if (level < nlev) then
! Apply the restriction ! Apply the restriction
@ -556,6 +554,7 @@ contains
goto 9999 goto 9999
end if end if
end if
end associate end associate
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

Write Preview
Loading…
Cancel
Save