From 80487d7c9ccb090df6a7432fe57a6e9e8bdb7cf4 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 24 Nov 2010 13:34:47 +0000
Subject: [PATCH] psblas3:  base/modules/psb_d_mat_mod.f03 
 base/psblas/psb_dspnrm1.f90

Fixed inconsistent interfaces, discovered with nagfor.
---
 base/modules/psb_d_mat_mod.f03 | 12 ++++++++----
 base/psblas/psb_dspnrm1.f90    |  4 ++--
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/base/modules/psb_d_mat_mod.f03 b/base/modules/psb_d_mat_mod.f03
index d00a2de5..30bbb26d 100644
--- a/base/modules/psb_d_mat_mod.f03
+++ b/base/modules/psb_d_mat_mod.f03
@@ -638,34 +638,38 @@ module psb_d_mat_mod
   end interface
 
   interface 
-    subroutine psb_d_rowsum(d,a) 
+    subroutine psb_d_rowsum(d,a,info) 
       import :: psb_dspmat_type, psb_dpk_
       class(psb_dspmat_type), intent(in) :: a
       real(psb_dpk_), intent(out)         :: d(:)
+      integer, intent(out)                 :: info
     end subroutine psb_d_rowsum
   end interface
 
   interface 
-    subroutine psb_d_arwsum(d,a) 
+    subroutine psb_d_arwsum(d,a,info) 
       import :: psb_dspmat_type, psb_dpk_
       class(psb_dspmat_type), intent(in) :: a
       real(psb_dpk_), intent(out)         :: d(:)
+      integer, intent(out)                 :: info
     end subroutine psb_d_arwsum
   end interface
   
   interface 
-    subroutine psb_d_colsum(d,a) 
+    subroutine psb_d_colsum(d,a,info) 
       import :: psb_dspmat_type, psb_dpk_
       class(psb_dspmat_type), intent(in) :: a
       real(psb_dpk_), intent(out)         :: d(:)
+      integer, intent(out)                 :: info
     end subroutine psb_d_colsum
   end interface
 
   interface 
-    subroutine psb_d_aclsum(d,a) 
+    subroutine psb_d_aclsum(d,a,info) 
       import :: psb_dspmat_type, psb_dpk_
       class(psb_dspmat_type), intent(in) :: a
       real(psb_dpk_), intent(out)         :: d(:)
+      integer, intent(out)                 :: info
     end subroutine psb_d_aclsum
   end interface
   
diff --git a/base/psblas/psb_dspnrm1.f90 b/base/psblas/psb_dspnrm1.f90
index fb659f2b..199dcde2 100644
--- a/base/psblas/psb_dspnrm1.f90
+++ b/base/psblas/psb_dspnrm1.f90
@@ -112,8 +112,8 @@ function psb_dspnrm1(a,desc_a,info)
   end if
   
   if ((m /= 0).and.(n /= 0)) then
-    call a%aclsum(v)
-    call psb_halo(v,desc_a,info,tran='T')
+    call a%aclsum(v,info)
+    if (info == psb_success_) call psb_halo(v,desc_a,info,tran='T')
     if(info /= psb_success_) then
       info=psb_err_from_subroutine_
       ch_err='psb_halo'