From 1b6d6434dafe38e5897a9fc9afd4289c37f62ac4 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 9 Jan 2012 17:59:27 +0000 Subject: [PATCH] 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. --- base/serial/impl/psb_c_csc_impl.f90 | 2 +- base/serial/impl/psb_d_csc_impl.f90 | 2 +- base/serial/impl/psb_s_csc_impl.f90 | 2 +- base/serial/impl/psb_z_csc_impl.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index ae11bab9..8d325c2c 100644 --- 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() diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90 index 496f6b26..c15a7c5c 100644 --- 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() diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90 index 0cdf4511..2c625fe6 100644 --- 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() diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90 index cf91915b..55df7768 100644 --- 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()