Fix AS%FREE()

4 years ago · 1fa94d0372
parent 6dddaaa77b
commit 1fa94d0372
4 changed files with 4 additions and 0 deletions
--- a/amgprec/impl/smoother/amg_c_as_smoother_free.f90
+++ b/amgprec/impl/smoother/amg_c_as_smoother_free.f90
@ -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
--- a/amgprec/impl/smoother/amg_d_as_smoother_free.f90
+++ b/amgprec/impl/smoother/amg_d_as_smoother_free.f90
@ -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
--- a/amgprec/impl/smoother/amg_s_as_smoother_free.f90
+++ b/amgprec/impl/smoother/amg_s_as_smoother_free.f90
@ -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
--- a/amgprec/impl/smoother/amg_z_as_smoother_free.f90
+++ b/amgprec/impl/smoother/amg_z_as_smoother_free.f90
@ -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