psblas3:

base/modules/psb_c_base_mat_mod.f90
 base/modules/psb_d_base_mat_mod.f90
 base/modules/psb_desc_mod.f90
 base/modules/psb_s_base_mat_mod.f90
 base/modules/psb_z_base_mat_mod.f90
 base/serial/impl/psb_c_base_mat_impl.F90
 base/serial/impl/psb_d_base_mat_impl.F90
 base/serial/impl/psb_s_base_mat_impl.F90
 base/serial/impl/psb_z_base_mat_impl.F90

Fix clone  to avoid INTENT(OUT),ALLOCATABLE and use intent(inout)

base/modules/psb_c_base_mat_mod.f90

@@ -433,7 +433,7 @@ module psb_c_base_mat_mod
       import :: psb_ipk_, psb_c_base_sparse_mat, psb_long_int_k_      
       implicit none 
       class(psb_c_base_sparse_mat), intent(inout)              :: a
-      class(psb_c_base_sparse_mat), allocatable, intent(out) :: b
+      class(psb_c_base_sparse_mat), allocatable, intent(inout) :: b
       integer(psb_ipk_), intent(out)                         :: info      
     end subroutine psb_c_base_clone
   end interface
@@ -1585,8 +1585,6 @@ module psb_c_base_mat_mod
   
 contains 
   
-  
- 
   subroutine c_base_mv_from(a,b)
     
     implicit none 

base/modules/psb_d_base_mat_mod.f90

@@ -433,7 +433,7 @@ module psb_d_base_mat_mod
       import :: psb_ipk_, psb_d_base_sparse_mat, psb_long_int_k_      
       implicit none 
       class(psb_d_base_sparse_mat), intent(inout)              :: a
-      class(psb_d_base_sparse_mat), allocatable, intent(out) :: b
+      class(psb_d_base_sparse_mat), allocatable, intent(inout) :: b
       integer(psb_ipk_), intent(out)                         :: info      
     end subroutine psb_d_base_clone
   end interface
@@ -1585,8 +1585,6 @@ module psb_d_base_mat_mod
   
 contains 
   
-  
- 
   subroutine d_base_mv_from(a,b)
     
     implicit none 

base/modules/psb_desc_mod.f90

@@ -909,7 +909,7 @@ contains
     !....parameters...
 
     class(psb_desc_type), intent(inout), target :: desc
-    class(psb_desc_type), intent(out)   :: desc_out
+    class(psb_desc_type), intent(inout)         :: desc_out
     integer(psb_ipk_), intent(out)              :: info
     !locals
     integer(psb_ipk_) :: np,me,ictxt, err_act
@@ -924,6 +924,7 @@ contains
     call psb_erractionsave(err_act)
     name = 'psb_cdcpy'
 
+    if (desc%is_valid()) then 
       ictxt = desc%get_context()
 
       ! check on blacs grid 
@@ -937,18 +938,28 @@ contains
       endif
 
       desc_out%base_desc  => desc%base_desc
-    if (info == psb_success_) call psb_safe_ab_cpy(desc%halo_index,desc_out%halo_index,info)
+      if (info == psb_success_)&
-    if (info == psb_success_) call psb_safe_ab_cpy(desc%ext_index,desc_out%ext_index,info)
+           & call psb_safe_ab_cpy(desc%halo_index,desc_out%halo_index,info)
-    if (info == psb_success_) call psb_safe_ab_cpy(desc%ovrlap_index,&
+      if (info == psb_success_)&
+           & call psb_safe_ab_cpy(desc%ext_index,desc_out%ext_index,info)
+      if (info == psb_success_)&
+           & call psb_safe_ab_cpy(desc%ovrlap_index,&
            & desc_out%ovrlap_index,info)
-    if (info == psb_success_) call psb_safe_ab_cpy(desc%bnd_elem,desc_out%bnd_elem,info)
+      if (info == psb_success_)&
-    if (info == psb_success_) call psb_safe_ab_cpy(desc%ovrlap_elem,desc_out%ovrlap_elem,info)
+           & call psb_safe_ab_cpy(desc%bnd_elem,desc_out%bnd_elem,info)
-    if (info == psb_success_) call psb_safe_ab_cpy(desc%ovr_mst_idx,desc_out%ovr_mst_idx,info)
+      if (info == psb_success_)&
-    if (info == psb_success_) call psb_safe_ab_cpy(desc%lprm,desc_out%lprm,info)
+           & call psb_safe_ab_cpy(desc%ovrlap_elem,desc_out%ovrlap_elem,info)
-    if (info == psb_success_) call psb_safe_ab_cpy(desc%idx_space,desc_out%idx_space,info)
+      if (info == psb_success_)&
-
+           & call psb_safe_ab_cpy(desc%ovr_mst_idx,desc_out%ovr_mst_idx,info)
+      if (info == psb_success_)&
+           & call psb_safe_ab_cpy(desc%lprm,desc_out%lprm,info)
+      if (info == psb_success_)&
+           & call psb_safe_ab_cpy(desc%idx_space,desc_out%idx_space,info)
       if ((info == psb_success_).and.(allocated(desc%indxmap))) &
            & call desc%indxmap%clone(desc_out%indxmap,info)
+    else
+      call desc_out%free(info)
+    end if
     if (info /= psb_success_) then
       info = psb_err_from_subroutine_
       call psb_errpush(info,name)

base/modules/psb_s_base_mat_mod.f90

@@ -433,7 +433,7 @@ module psb_s_base_mat_mod
       import :: psb_ipk_, psb_s_base_sparse_mat, psb_long_int_k_      
       implicit none 
       class(psb_s_base_sparse_mat), intent(inout)              :: a
-      class(psb_s_base_sparse_mat), allocatable, intent(out) :: b
+      class(psb_s_base_sparse_mat), allocatable, intent(inout) :: b
       integer(psb_ipk_), intent(out)                         :: info      
     end subroutine psb_s_base_clone
   end interface
@@ -1585,8 +1585,6 @@ module psb_s_base_mat_mod
   
 contains 
   
-  
- 
   subroutine s_base_mv_from(a,b)
     
     implicit none 

base/modules/psb_z_base_mat_mod.f90

@@ -433,7 +433,7 @@ module psb_z_base_mat_mod
       import :: psb_ipk_, psb_z_base_sparse_mat, psb_long_int_k_      
       implicit none 
       class(psb_z_base_sparse_mat), intent(inout)              :: a
-      class(psb_z_base_sparse_mat), allocatable, intent(out) :: b
+      class(psb_z_base_sparse_mat), allocatable, intent(inout) :: b
       integer(psb_ipk_), intent(out)                         :: info      
     end subroutine psb_z_base_clone
   end interface
@@ -1585,8 +1585,6 @@ module psb_z_base_mat_mod
   
 contains 
   
-  
- 
   subroutine z_base_mv_from(a,b)
     
     implicit none 

base/serial/impl/psb_c_base_mat_impl.F90

@@ -556,9 +556,20 @@ subroutine psb_c_base_clone(a,b,info)
   implicit none 
   
   class(psb_c_base_sparse_mat), intent(inout)              :: a
-  class(psb_c_base_sparse_mat), allocatable, intent(out) :: b
+  class(psb_c_base_sparse_mat), allocatable, intent(inout) :: b
   integer(psb_ipk_), intent(out) :: info 
 
+  if (allocated(b)) then
+    call b%free()
+    deallocate(b, stat=info)
+  end if
+  if (info /= 0) then 
+    info = psb_err_alloc_dealloc_
+    return
+  end if
+
+  ! Do not use SOURCE allocation: this makes sure that
+  ! memory allocated elsewhere is treated properly. 
 #if defined(HAVE_MOLD)
   allocate(b,mold=a,stat=info)
   if (info /= psb_success_) info = psb_err_alloc_dealloc_

base/serial/impl/psb_d_base_mat_impl.F90

@@ -556,9 +556,20 @@ subroutine psb_d_base_clone(a,b,info)
   implicit none 
   
   class(psb_d_base_sparse_mat), intent(inout)              :: a
-  class(psb_d_base_sparse_mat), allocatable, intent(out) :: b
+  class(psb_d_base_sparse_mat), allocatable, intent(inout) :: b
   integer(psb_ipk_), intent(out) :: info 
 
+  if (allocated(b)) then
+    call b%free()
+    deallocate(b, stat=info)
+  end if
+  if (info /= 0) then 
+    info = psb_err_alloc_dealloc_
+    return
+  end if
+
+  ! Do not use SOURCE allocation: this makes sure that
+  ! memory allocated elsewhere is treated properly. 
 #if defined(HAVE_MOLD)
   allocate(b,mold=a,stat=info)
   if (info /= psb_success_) info = psb_err_alloc_dealloc_

base/serial/impl/psb_s_base_mat_impl.F90

@@ -556,9 +556,20 @@ subroutine psb_s_base_clone(a,b,info)
   implicit none 
   
   class(psb_s_base_sparse_mat), intent(inout)              :: a
-  class(psb_s_base_sparse_mat), allocatable, intent(out) :: b
+  class(psb_s_base_sparse_mat), allocatable, intent(inout) :: b
   integer(psb_ipk_), intent(out) :: info 
 
+  if (allocated(b)) then
+    call b%free()
+    deallocate(b, stat=info)
+  end if
+  if (info /= 0) then 
+    info = psb_err_alloc_dealloc_
+    return
+  end if
+
+  ! Do not use SOURCE allocation: this makes sure that
+  ! memory allocated elsewhere is treated properly. 
 #if defined(HAVE_MOLD)
   allocate(b,mold=a,stat=info)
   if (info /= psb_success_) info = psb_err_alloc_dealloc_

base/serial/impl/psb_z_base_mat_impl.F90

@@ -556,9 +556,20 @@ subroutine psb_z_base_clone(a,b,info)
   implicit none 
   
   class(psb_z_base_sparse_mat), intent(inout)              :: a
-  class(psb_z_base_sparse_mat), allocatable, intent(out) :: b
+  class(psb_z_base_sparse_mat), allocatable, intent(inout) :: b
   integer(psb_ipk_), intent(out) :: info 
 
+  if (allocated(b)) then
+    call b%free()
+    deallocate(b, stat=info)
+  end if
+  if (info /= 0) then 
+    info = psb_err_alloc_dealloc_
+    return
+  end if
+
+  ! Do not use SOURCE allocation: this makes sure that
+  ! memory allocated elsewhere is treated properly. 
 #if defined(HAVE_MOLD)
   allocate(b,mold=a,stat=info)
   if (info /= psb_success_) info = psb_err_alloc_dealloc_