From ba7500bca312c829abf182e1999ab175781882c7 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 27 Feb 2014 16:13:18 +0000
Subject: [PATCH] Fixed duplicate method in base_mat_mod.

---
 base/modules/psb_base_mat_mod.f90 | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/base/modules/psb_base_mat_mod.f90 b/base/modules/psb_base_mat_mod.f90
index b83841f1..e1933acc 100644
--- a/base/modules/psb_base_mat_mod.f90
+++ b/base/modules/psb_base_mat_mod.f90
@@ -122,7 +122,7 @@ module psb_base_mat_mod
     logical, private     :: upper
     !> Is the matrix diagonal stored or assumed unitary? (only if  triangular)
     logical, private     :: unitd
-    !> Are the coefficients sorted by row and column indices? 
+    !> Are the coefficients sorted ?
     logical, private     :: sorted
   contains 
 
@@ -149,6 +149,8 @@ module psb_base_mat_mod
     procedure, pass(a) :: is_lower    => psb_base_is_lower
     procedure, pass(a) :: is_triangle => psb_base_is_triangle
     procedure, pass(a) :: is_unit     => psb_base_is_unit
+    procedure, pass(a) :: is_by_rows  => psb_base_is_by_rows
+    procedure, pass(a) :: is_by_cols  => psb_base_is_by_cols
     
     ! == = =================================
     !
@@ -648,6 +650,21 @@ contains
     res = a%sorted
   end function psb_base_is_sorted
 
+
+  function psb_base_is_by_rows(a) result(res)
+    implicit none 
+    class(psb_base_sparse_mat), intent(in) :: a
+    logical :: res
+    res = .false.
+  end function psb_base_is_by_rows
+
+  function psb_base_is_by_cols(a) result(res)
+    implicit none 
+    class(psb_base_sparse_mat), intent(in) :: a
+    logical :: res
+    res = .false.
+  end function psb_base_is_by_cols
+
   
   !
   !  TRANSP: note sorted=.false.