Merge branch 'development' into lambdaI

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()

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()

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()

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()

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()

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()

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()

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()

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()

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()

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()

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()