From 1fa94d0372a9586d3c0d745e1d9e1670c25ad910 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Mon, 14 Jun 2021 12:26:04 -0400
Subject: [PATCH] Fix AS%FREE()

---
 amgprec/impl/smoother/amg_c_as_smoother_free.f90 | 1 +
 amgprec/impl/smoother/amg_d_as_smoother_free.f90 | 1 +
 amgprec/impl/smoother/amg_s_as_smoother_free.f90 | 1 +
 amgprec/impl/smoother/amg_z_as_smoother_free.f90 | 1 +
 4 files changed, 4 insertions(+)

diff --git a/amgprec/impl/smoother/amg_c_as_smoother_free.f90 b/amgprec/impl/smoother/amg_c_as_smoother_free.f90
index 77ae7e95..6c22e1d2 100644
--- 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
diff --git a/amgprec/impl/smoother/amg_d_as_smoother_free.f90 b/amgprec/impl/smoother/amg_d_as_smoother_free.f90
index d6217e0f..b5e1aa6e 100644
--- 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
diff --git a/amgprec/impl/smoother/amg_s_as_smoother_free.f90 b/amgprec/impl/smoother/amg_s_as_smoother_free.f90
index e245e17f..3085f485 100644
--- 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
diff --git a/amgprec/impl/smoother/amg_z_as_smoother_free.f90 b/amgprec/impl/smoother/amg_z_as_smoother_free.f90
index 3fce8b8a..dc6c98b6 100644
--- 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