Merge branch 'development' into stopcriterion to correct memory leak

5 years ago · e680f2092f
parent 78e7f29371 67cff859ec
commit e680f2092f
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)