Fix lev%free() for sm2a

5 years ago · 67cff859ec
parent c49301de12
commit 67cff859ec
4 changed files with 12 additions and 0 deletions
--- a/mlprec/impl/level/mld_c_base_onelev_free.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_free.f90
@ -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)

--- a/mlprec/impl/level/mld_d_base_onelev_free.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_free.f90
@ -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)

--- a/mlprec/impl/level/mld_s_base_onelev_free.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_free.f90
@ -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)

--- a/mlprec/impl/level/mld_z_base_onelev_free.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_free.f90
@ -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)