From dcdfd06d1410994f4f9ac919582d78b90255933a Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 13 Dec 2011 17:02:12 +0000
Subject: [PATCH] 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 | 2 +-
 base/modules/psb_d_mat_mod.f90 | 2 +-
 base/modules/psb_s_mat_mod.f90 | 2 +-
 base/modules/psb_z_mat_mod.f90 | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/base/modules/psb_c_mat_mod.f90 b/base/modules/psb_c_mat_mod.f90
index 5ddb82c6..6c6d9e08 100644
--- a/base/modules/psb_c_mat_mod.f90
+++ b/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
   
diff --git a/base/modules/psb_d_mat_mod.f90 b/base/modules/psb_d_mat_mod.f90
index 7c2301a9..9a7af53d 100644
--- a/base/modules/psb_d_mat_mod.f90
+++ b/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
   
diff --git a/base/modules/psb_s_mat_mod.f90 b/base/modules/psb_s_mat_mod.f90
index 013428ae..b78dfb49 100644
--- a/base/modules/psb_s_mat_mod.f90
+++ b/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
   
diff --git a/base/modules/psb_z_mat_mod.f90 b/base/modules/psb_z_mat_mod.f90
index a1774a5f..2d1d3d6e 100644
--- a/base/modules/psb_z_mat_mod.f90
+++ b/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