psblas3:

base/modules/psb_c_base_mat_mod.f90
 base/modules/psb_d_base_mat_mod.f90
 base/modules/psb_error_mod.F90
 base/modules/psb_s_base_mat_mod.f90
 base/modules/psb_z_base_mat_mod.f90
 base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/serial/impl/psb_s_csr_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Minor inconsistencies discovered by Cray compiler.

base/modules/psb_c_base_mat_mod.f90

@@ -428,8 +428,8 @@ module psb_c_base_mat_mod
     subroutine psb_c_base_tril(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_
-      class(psb_c_base_sparse_mat), intent(in)   :: a
+      class(psb_c_base_sparse_mat), intent(in) :: a
-      class(psb_c_coo_sparse_mat), intent(inout) :: b
+      class(psb_c_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
@@ -469,8 +469,8 @@ module psb_c_base_mat_mod
     subroutine psb_c_base_triu(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_
-      class(psb_c_base_sparse_mat), intent(in)   :: a
+      class(psb_c_base_sparse_mat), intent(in) :: a
-      class(psb_c_coo_sparse_mat), intent(inout) :: b
+      class(psb_c_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale

base/modules/psb_d_base_mat_mod.f90

@@ -428,8 +428,8 @@ module psb_d_base_mat_mod
     subroutine psb_d_base_tril(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_
-      class(psb_d_base_sparse_mat), intent(in)   :: a
+      class(psb_d_base_sparse_mat), intent(in) :: a
-      class(psb_d_coo_sparse_mat), intent(inout) :: b
+      class(psb_d_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
@@ -469,8 +469,8 @@ module psb_d_base_mat_mod
     subroutine psb_d_base_triu(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_
-      class(psb_d_base_sparse_mat), intent(in)   :: a
+      class(psb_d_base_sparse_mat), intent(in) :: a
-      class(psb_d_coo_sparse_mat), intent(inout) :: b
+      class(psb_d_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale

base/modules/psb_error_mod.F90

@@ -69,7 +69,7 @@ module psb_error_mod
   interface psb_error_handler
     subroutine psb_ser_error_handler(err_act)
       import :: psb_ipk_
-      integer(psb_ipk_), intent(in) ::  err_act
+      integer(psb_ipk_), intent(inout) ::  err_act
     end subroutine psb_ser_error_handler
     subroutine psb_par_error_handler(ictxt,err_act)
       import :: psb_ipk_,psb_mpik_

base/modules/psb_s_base_mat_mod.f90

@@ -428,8 +428,8 @@ module psb_s_base_mat_mod
     subroutine psb_s_base_tril(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_
-      class(psb_s_base_sparse_mat), intent(in)   :: a
+      class(psb_s_base_sparse_mat), intent(in) :: a
-      class(psb_s_coo_sparse_mat), intent(inout) :: b
+      class(psb_s_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
@@ -469,8 +469,8 @@ module psb_s_base_mat_mod
     subroutine psb_s_base_triu(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_
-      class(psb_s_base_sparse_mat), intent(in)   :: a
+      class(psb_s_base_sparse_mat), intent(in) :: a
-      class(psb_s_coo_sparse_mat), intent(inout) :: b
+      class(psb_s_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale

base/modules/psb_z_base_mat_mod.f90

@@ -428,8 +428,8 @@ module psb_z_base_mat_mod
     subroutine psb_z_base_tril(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_
-      class(psb_z_base_sparse_mat), intent(in)   :: a
+      class(psb_z_base_sparse_mat), intent(in) :: a
-      class(psb_z_coo_sparse_mat), intent(inout) :: b
+      class(psb_z_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
@@ -469,8 +469,8 @@ module psb_z_base_mat_mod
     subroutine psb_z_base_triu(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_
-      class(psb_z_base_sparse_mat), intent(in)   :: a
+      class(psb_z_base_sparse_mat), intent(in) :: a
-      class(psb_z_coo_sparse_mat), intent(inout) :: b
+      class(psb_z_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale

base/serial/impl/psb_c_csr_impl.f90

@@ -2667,7 +2667,7 @@ subroutine psb_c_cp_csr_from_coo(a,b,info)
   integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc
   integer(psb_ipk_), Parameter  :: maxtry=8
   integer(psb_ipk_) :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='c_cp_csr_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()

base/serial/impl/psb_d_csr_impl.f90

@@ -2667,7 +2667,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
   integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc
   integer(psb_ipk_), Parameter  :: maxtry=8
   integer(psb_ipk_) :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='d_cp_csr_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()

base/serial/impl/psb_s_csr_impl.f90

@@ -2667,7 +2667,7 @@ subroutine psb_s_cp_csr_from_coo(a,b,info)
   integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc
   integer(psb_ipk_), Parameter  :: maxtry=8
   integer(psb_ipk_) :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='s_cp_csr_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()

base/serial/impl/psb_z_csr_impl.f90

@@ -2667,7 +2667,7 @@ subroutine psb_z_cp_csr_from_coo(a,b,info)
   integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc
   integer(psb_ipk_), Parameter  :: maxtry=8
   integer(psb_ipk_) :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='z_cp_csr_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()