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

@@ -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
   

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 a%aclsum(v,info)
-    call psb_halo(v,desc_a,info,tran='T')
+    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'