psblas3:

base/serial/impl/psb_c_csc_impl.f90 base/serial/impl/psb_d_csc_impl.f90 base/serial/impl/psb_s_csc_impl.f90 base/serial/impl/psb_z_csc_impl.f90 Uninitialized variable caught by Cray compiler.
13 years ago · 1b6d6434da
parent 8219915579
commit 1b6d6434da
4 changed files with 4 additions and 4 deletions
--- a/base/serial/impl/psb_c_csc_impl.f90
+++ b/base/serial/impl/psb_c_csc_impl.f90
@ -2267,7 +2267,7 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
  Integer             :: nza, nr, i,j,irw, err_act, nc, icl
  Integer, Parameter  :: maxtry=8
  integer              :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='c_mv_csc_from_coo'ì

  info = psb_success_
  debug_unit  = psb_get_debug_unit()
--- a/base/serial/impl/psb_d_csc_impl.f90
+++ b/base/serial/impl/psb_d_csc_impl.f90
@ -2267,7 +2267,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
  Integer             :: nza, nr, i,j,irw, err_act, nc, icl
  Integer, Parameter  :: maxtry=8
  integer              :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='d_mv_csc_from_coo'ì

  info = psb_success_
  debug_unit  = psb_get_debug_unit()
--- a/base/serial/impl/psb_s_csc_impl.f90
+++ b/base/serial/impl/psb_s_csc_impl.f90
@ -2267,7 +2267,7 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
  Integer             :: nza, nr, i,j,irw, err_act, nc, icl
  Integer, Parameter  :: maxtry=8
  integer              :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='s_mv_csc_from_coo'ì

  info = psb_success_
  debug_unit  = psb_get_debug_unit()
--- a/base/serial/impl/psb_z_csc_impl.f90
+++ b/base/serial/impl/psb_z_csc_impl.f90
@ -2267,7 +2267,7 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
  Integer             :: nza, nr, i,j,irw, err_act, nc, icl
  Integer, Parameter  :: maxtry=8
  integer              :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='z_mv_csc_from_coo'ì

  info = psb_success_
  debug_unit  = psb_get_debug_unit()