From d4b6d4dfa17cc0f6897e73bfcf91b3ce5841e7a1 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Mon, 5 Dec 2022 09:57:23 +0100
Subject: [PATCH] Fix reinit

---
 base/serial/impl/psb_c_coo_impl.F90 | 1 -
 base/serial/impl/psb_c_csc_impl.f90 | 1 -
 base/serial/impl/psb_c_csr_impl.f90 | 1 -
 base/serial/impl/psb_d_coo_impl.F90 | 1 -
 base/serial/impl/psb_d_csc_impl.f90 | 1 -
 base/serial/impl/psb_d_csr_impl.f90 | 1 -
 base/serial/impl/psb_s_coo_impl.F90 | 1 -
 base/serial/impl/psb_s_csc_impl.f90 | 1 -
 base/serial/impl/psb_s_csr_impl.f90 | 1 -
 base/serial/impl/psb_z_coo_impl.F90 | 1 -
 base/serial/impl/psb_z_csc_impl.f90 | 1 -
 base/serial/impl/psb_z_csr_impl.f90 | 1 -
 12 files changed, 12 deletions(-)

diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90
index 306aefd9..7e3c8160 100644
--- a/base/serial/impl/psb_c_coo_impl.F90
+++ b/base/serial/impl/psb_c_coo_impl.F90
@@ -537,7 +537,6 @@ subroutine psb_c_coo_reinit(a,clear)
   if (a%is_dev())   call a%sync()
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = czero
     call a%set_host()
diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90
index 3e3aa9eb..6360d73a 100644
--- a/base/serial/impl/psb_c_csc_impl.f90
+++ b/base/serial/impl/psb_c_csc_impl.f90
@@ -2588,7 +2588,6 @@ subroutine psb_c_csc_reinit(a,clear)
 
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = czero
     call a%set_upd()
diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90
index de49a56f..bf5e85aa 100644
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@@ -2722,7 +2722,6 @@ subroutine psb_c_csr_reinit(a,clear)
 
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = czero
     call a%set_upd()
diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90
index d8d241ed..f326e46f 100644
--- a/base/serial/impl/psb_d_coo_impl.F90
+++ b/base/serial/impl/psb_d_coo_impl.F90
@@ -537,7 +537,6 @@ subroutine psb_d_coo_reinit(a,clear)
   if (a%is_dev())   call a%sync()
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = dzero
     call a%set_host()
diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90
index a0e4be09..3b9b1b42 100644
--- a/base/serial/impl/psb_d_csc_impl.f90
+++ b/base/serial/impl/psb_d_csc_impl.f90
@@ -2588,7 +2588,6 @@ subroutine psb_d_csc_reinit(a,clear)
 
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = dzero
     call a%set_upd()
diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90
index 0cd58458..0bbd99a0 100644
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@@ -2722,7 +2722,6 @@ subroutine psb_d_csr_reinit(a,clear)
 
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = dzero
     call a%set_upd()
diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90
index 7ddb20cb..7be72cce 100644
--- a/base/serial/impl/psb_s_coo_impl.F90
+++ b/base/serial/impl/psb_s_coo_impl.F90
@@ -537,7 +537,6 @@ subroutine psb_s_coo_reinit(a,clear)
   if (a%is_dev())   call a%sync()
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = szero
     call a%set_host()
diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90
index 2711c2f8..3da31d16 100644
--- a/base/serial/impl/psb_s_csc_impl.f90
+++ b/base/serial/impl/psb_s_csc_impl.f90
@@ -2588,7 +2588,6 @@ subroutine psb_s_csc_reinit(a,clear)
 
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = szero
     call a%set_upd()
diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90
index ef24c4b3..34f937a4 100644
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@@ -2722,7 +2722,6 @@ subroutine psb_s_csr_reinit(a,clear)
 
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = szero
     call a%set_upd()
diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90
index b9dd7e59..d06e2739 100644
--- a/base/serial/impl/psb_z_coo_impl.F90
+++ b/base/serial/impl/psb_z_coo_impl.F90
@@ -537,7 +537,6 @@ subroutine psb_z_coo_reinit(a,clear)
   if (a%is_dev())   call a%sync()
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = zzero
     call a%set_host()
diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90
index a2254035..8af661fa 100644
--- a/base/serial/impl/psb_z_csc_impl.f90
+++ b/base/serial/impl/psb_z_csc_impl.f90
@@ -2588,7 +2588,6 @@ subroutine psb_z_csc_reinit(a,clear)
 
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = zzero
     call a%set_upd()
diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90
index 29cf9e4e..3084425f 100644
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@@ -2722,7 +2722,6 @@ subroutine psb_z_csr_reinit(a,clear)
 
   if (a%is_bld() .or. a%is_upd()) then
     ! do nothing
-    return
   else if (a%is_asb()) then
     if (clear_) a%val(:) = zzero
     call a%set_upd()