psblas3:

base/modules/psb_c_mat_mod.f90
 base/modules/psb_d_mat_mod.f90
 base/modules/psb_s_mat_mod.f90
 base/modules/psb_z_mat_mod.f90


Inconsistent interface in cp_from.

base/modules/psb_c_mat_mod.f90

@@ -579,7 +579,7 @@ module psb_c_mat_mod
     subroutine psb_c_cp_from(a,b)
       import :: psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat
       class(psb_cspmat_type), intent(out) :: a
-      class(psb_c_base_sparse_mat), intent(inout), allocatable :: b
+      class(psb_c_base_sparse_mat), intent(in) :: b
     end subroutine psb_c_cp_from
   end interface
   

base/modules/psb_d_mat_mod.f90

@@ -579,7 +579,7 @@ module psb_d_mat_mod
     subroutine psb_d_cp_from(a,b)
       import :: psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat
       class(psb_dspmat_type), intent(out) :: a
-      class(psb_d_base_sparse_mat), intent(inout), allocatable :: b
+      class(psb_d_base_sparse_mat), intent(in) :: b
     end subroutine psb_d_cp_from
   end interface
   

base/modules/psb_s_mat_mod.f90

@@ -579,7 +579,7 @@ module psb_s_mat_mod
     subroutine psb_s_cp_from(a,b)
       import :: psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat
       class(psb_sspmat_type), intent(out) :: a
-      class(psb_s_base_sparse_mat), intent(inout), allocatable :: b
+      class(psb_s_base_sparse_mat), intent(in) :: b
     end subroutine psb_s_cp_from
   end interface
   

base/modules/psb_z_mat_mod.f90

@@ -579,7 +579,7 @@ module psb_z_mat_mod
     subroutine psb_z_cp_from(a,b)
       import :: psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat
       class(psb_zspmat_type), intent(out) :: a
-      class(psb_z_base_sparse_mat), intent(inout), allocatable :: b
+      class(psb_z_base_sparse_mat), intent(in) :: b
     end subroutine psb_z_cp_from
   end interface