From c320e875826b3464684a63a5e83fa5cd507e1a0e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 14 Nov 2011 13:18:55 +0000 Subject: [PATCH] psblas3: psb_c_csc_impl.f90 psb_d_csc_impl.f90 psb_s_csc_impl.f90 psb_z_csc_impl.f90 Missing variable init. --- base/serial/impl/psb_c_csc_impl.f90 | 4 ++-- base/serial/impl/psb_d_csc_impl.f90 | 4 ++-- base/serial/impl/psb_s_csc_impl.f90 | 4 ++-- base/serial/impl/psb_z_csc_impl.f90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index 8febdb14..41f40b00 100644 --- a/base/serial/impl/psb_c_csc_impl.f90 +++ b/base/serial/impl/psb_c_csc_impl.f90 @@ -2630,8 +2630,8 @@ subroutine psb_c_mv_csc_from_coo(a,b,info) logical :: rwshr_ Integer :: nza, nr, i,j,irw, err_act, nc, icl Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit - character(len=20) :: name + integer :: debug_level, debug_unit + character(len=20) :: name='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 1acc15b8..31e8bac9 100644 --- a/base/serial/impl/psb_d_csc_impl.f90 +++ b/base/serial/impl/psb_d_csc_impl.f90 @@ -2266,8 +2266,8 @@ subroutine psb_d_mv_csc_from_coo(a,b,info) logical :: rwshr_ Integer :: nza, nr, i,j,irw, err_act, nc, icl Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit - character(len=20) :: name + integer :: debug_level, debug_unit + character(len=20) :: name='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 f50843e9..f445439f 100644 --- a/base/serial/impl/psb_s_csc_impl.f90 +++ b/base/serial/impl/psb_s_csc_impl.f90 @@ -2265,8 +2265,8 @@ subroutine psb_s_mv_csc_from_coo(a,b,info) logical :: rwshr_ Integer :: nza, nr, i,j,irw, err_act, nc, icl Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit - character(len=20) :: name + integer :: debug_level, debug_unit + character(len=20) :: name='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 a28e8d3d..fd90d0bb 100644 --- a/base/serial/impl/psb_z_csc_impl.f90 +++ b/base/serial/impl/psb_z_csc_impl.f90 @@ -2630,8 +2630,8 @@ subroutine psb_z_mv_csc_from_coo(a,b,info) logical :: rwshr_ Integer :: nza, nr, i,j,irw, err_act, nc, icl Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit - character(len=20) :: name + integer :: debug_level, debug_unit + character(len=20) :: name='csc_from_coo' info = psb_success_ debug_unit = psb_get_debug_unit()