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

Fix lev%free() for sm2a

Browse Source
This commit is contained in:
Salvatore Filippone
2020-04-30 14:05:04 +02:00
parent c49301de12
commit 67cff859ec
4 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_free.f90
+3
View File
@@ -54,6 +54,9 @@ subroutine mld_c_base_onelev_free(lv,info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
if (allocated(lv%sm2a)) &
& call lv%sm2a%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)
mlprec/impl/level/mld_d_base_onelev_free.f90
+3
View File
@@ -54,6 +54,9 @@ subroutine mld_d_base_onelev_free(lv,info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
if (allocated(lv%sm2a)) &
& call lv%sm2a%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)
mlprec/impl/level/mld_s_base_onelev_free.f90
+3
View File
@@ -54,6 +54,9 @@ subroutine mld_s_base_onelev_free(lv,info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
if (allocated(lv%sm2a)) &
& call lv%sm2a%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)
mlprec/impl/level/mld_z_base_onelev_free.f90
+3
View File
@@ -54,6 +54,9 @@ subroutine mld_z_base_onelev_free(lv,info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
if (allocated(lv%sm2a)) &
& call lv%sm2a%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)