From 0ed792f1f76c6d44db1470f9f12f2e158c22a466 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 30 Jun 2015 17:11:03 +0000
Subject: [PATCH] psblas-submodules:  base/modules/psb_c_sort_mod.f90 
 base/modules/psb_d_sort_mod.f90  base/modules/psb_i_sort_mod.f90 
 base/modules/psb_s_sort_mod.f90  base/modules/psb_z_sort_mod.f90

INTENT mismatch fixed.
---
 base/modules/psb_c_sort_mod.f90 | 2 +-
 base/modules/psb_d_sort_mod.f90 | 2 +-
 base/modules/psb_i_sort_mod.f90 | 2 +-
 base/modules/psb_s_sort_mod.f90 | 2 +-
 base/modules/psb_z_sort_mod.f90 | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/base/modules/psb_c_sort_mod.f90 b/base/modules/psb_c_sort_mod.f90
index 19ebd517..0d457a94 100644
--- a/base/modules/psb_c_sort_mod.f90
+++ b/base/modules/psb_c_sort_mod.f90
@@ -200,7 +200,7 @@ module psb_c_sort_mod
 
   interface 
     module subroutine psi_c_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      complex(psb_spk_), intent(inout)    :: key
+      complex(psb_spk_), intent(out)      :: key
       integer(psb_ipk_), intent(out)    :: index
       complex(psb_spk_), intent(inout)    :: heap(:)
       integer(psb_ipk_), intent(in)     :: dir
diff --git a/base/modules/psb_d_sort_mod.f90 b/base/modules/psb_d_sort_mod.f90
index dbe6f0e8..e9043983 100644
--- a/base/modules/psb_d_sort_mod.f90
+++ b/base/modules/psb_d_sort_mod.f90
@@ -188,7 +188,7 @@ module psb_d_sort_mod
 
   interface 
     module subroutine psi_d_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      real(psb_dpk_), intent(inout)    :: key
+      real(psb_dpk_), intent(out)      :: key
       integer(psb_ipk_), intent(out)    :: index
       real(psb_dpk_), intent(inout)    :: heap(:)
       integer(psb_ipk_), intent(in)     :: dir
diff --git a/base/modules/psb_i_sort_mod.f90 b/base/modules/psb_i_sort_mod.f90
index 47f8dc68..95d1aad7 100644
--- a/base/modules/psb_i_sort_mod.f90
+++ b/base/modules/psb_i_sort_mod.f90
@@ -225,7 +225,7 @@ module psb_i_sort_mod
 
   interface 
     module subroutine psi_i_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      integer(psb_ipk_), intent(inout)    :: key
+      integer(psb_ipk_), intent(out)      :: key
       integer(psb_ipk_), intent(out)    :: index
       integer(psb_ipk_), intent(inout)    :: heap(:)
       integer(psb_ipk_), intent(in)     :: dir
diff --git a/base/modules/psb_s_sort_mod.f90 b/base/modules/psb_s_sort_mod.f90
index efe5d10c..54d10755 100644
--- a/base/modules/psb_s_sort_mod.f90
+++ b/base/modules/psb_s_sort_mod.f90
@@ -188,7 +188,7 @@ module psb_s_sort_mod
 
   interface 
     module subroutine psi_s_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      real(psb_spk_), intent(inout)    :: key
+      real(psb_spk_), intent(out)      :: key
       integer(psb_ipk_), intent(out)    :: index
       real(psb_spk_), intent(inout)    :: heap(:)
       integer(psb_ipk_), intent(in)     :: dir
diff --git a/base/modules/psb_z_sort_mod.f90 b/base/modules/psb_z_sort_mod.f90
index 6af7380b..8295c36c 100644
--- a/base/modules/psb_z_sort_mod.f90
+++ b/base/modules/psb_z_sort_mod.f90
@@ -200,7 +200,7 @@ module psb_z_sort_mod
 
   interface 
     module subroutine psi_z_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
-      complex(psb_dpk_), intent(inout)    :: key
+      complex(psb_dpk_), intent(out)      :: key
       integer(psb_ipk_), intent(out)    :: index
       complex(psb_dpk_), intent(inout)    :: heap(:)
       integer(psb_ipk_), intent(in)     :: dir