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 AS%FREE()

Browse Source
This commit is contained in:
Salvatore Filippone
2021-06-14 12:26:04 -04:00
parent 6dddaaa77b
commit 1fa94d0372
4 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/smoother/amg_c_as_smoother_free.f90
+1
View File
@@ -61,6 +61,7 @@ subroutine amg_c_as_smoother_free(sm,info)
end if
end if
call sm%nd%free()
call sm%desc_data%free(info)
call psb_erractionrestore(err_act)
return
amgprec/impl/smoother/amg_d_as_smoother_free.f90
+1
View File
@@ -61,6 +61,7 @@ subroutine amg_d_as_smoother_free(sm,info)
end if
end if
call sm%nd%free()
call sm%desc_data%free(info)
call psb_erractionrestore(err_act)
return
amgprec/impl/smoother/amg_s_as_smoother_free.f90
+1
View File
@@ -61,6 +61,7 @@ subroutine amg_s_as_smoother_free(sm,info)
end if
end if
call sm%nd%free()
call sm%desc_data%free(info)
call psb_erractionrestore(err_act)
return
amgprec/impl/smoother/amg_z_as_smoother_free.f90
+1
View File
@@ -61,6 +61,7 @@ subroutine amg_z_as_smoother_free(sm,info)
end if
end if
call sm%nd%free()
call sm%desc_data%free(info)
call psb_erractionrestore(err_act)
return