fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix mlprec_aply

Browse Source
This commit is contained in:
sfilippone
2026-04-20 11:28:06 +02:00
parent d833362f4b
commit 62f5501761
4 changed files with 132 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/amg_cmlprec_aply.f90
+1 -2
View File
@@ -508,7 +508,6 @@ contains
& base_desc, trans,&
& ione,work,wv,info,init='Z')
end do
else
sweeps = p%precv(level)%parms%sweeps_pre
call p%precv(level)%sm%apply(cone,&
@@ -522,7 +521,6 @@ contains
& a_err='Error during ADD smoother_apply')
goto 9999
end if
end if
if (level < nlev) then
! Apply the restriction
@@ -556,6 +554,7 @@ contains
goto 9999
end if
end if
end associate
call psb_erractionrestore(err_act)
amgprec/impl/amg_dmlprec_aply.f90
+1 -2
View File
@@ -508,7 +508,6 @@ contains
& base_desc, trans,&
& ione,work,wv,info,init='Z')
end do
else
sweeps = p%precv(level)%parms%sweeps_pre
call p%precv(level)%sm%apply(done,&
@@ -522,7 +521,6 @@ contains
& a_err='Error during ADD smoother_apply')
goto 9999
end if
end if
if (level < nlev) then
! Apply the restriction
@@ -556,6 +554,7 @@ contains
goto 9999
end if
end if
end associate
call psb_erractionrestore(err_act)
amgprec/impl/amg_smlprec_aply.f90
+1 -2
View File
@@ -508,7 +508,6 @@ contains
& base_desc, trans,&
& ione,work,wv,info,init='Z')
end do
else
sweeps = p%precv(level)%parms%sweeps_pre
call p%precv(level)%sm%apply(sone,&
@@ -522,7 +521,6 @@ contains
& a_err='Error during ADD smoother_apply')
goto 9999
end if
end if
if (level < nlev) then
! Apply the restriction
@@ -556,6 +554,7 @@ contains
goto 9999
end if
end if
end associate
call psb_erractionrestore(err_act)
amgprec/impl/amg_zmlprec_aply.f90
+1 -2
View File
@@ -508,7 +508,6 @@ contains
& base_desc, trans,&
& ione,work,wv,info,init='Z')
end do
else
sweeps = p%precv(level)%parms%sweeps_pre
call p%precv(level)%sm%apply(zone,&
@@ -522,7 +521,6 @@ contains
& a_err='Error during ADD smoother_apply')
goto 9999
end if
end if
if (level < nlev) then
! Apply the restriction
@@ -556,6 +554,7 @@ contains
goto 9999
end if
end if
end associate
call psb_erractionrestore(err_act)