From 208952a9a55624319c8363bd3ac3034ed35195f6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 2 May 2006 11:59:41 +0000 Subject: [PATCH] Bug: spall was changing dec_type_ in desc_a --- src/tools/psb_dspalloc.f90 | 4 ++-- src/tools/psb_zspalloc.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/tools/psb_dspalloc.f90 b/src/tools/psb_dspalloc.f90 index 456b9f59..364cd314 100644 --- a/src/tools/psb_dspalloc.f90 +++ b/src/tools/psb_dspalloc.f90 @@ -92,7 +92,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz) ! set fields in desc_a%matrix_data.... loc_row = desc_a%matrix_data(psb_n_row_) m = desc_a%matrix_data(psb_m_) - n = desc_a%matrix_data(psb_n_) + n = desc_a%matrix_data(psb_n_) !...allocate matrix data... if (present(nnz))then @@ -133,7 +133,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz) if (debug) write(0,*) 'spall: ', & &desc_a%matrix_data(psb_dec_type_),psb_desc_bld_ - desc_a%matrix_data(psb_dec_type_) = psb_desc_bld_ +!!$ desc_a%matrix_data(psb_dec_type_) = psb_desc_bld_ return call psb_erractionrestore(err_act) diff --git a/src/tools/psb_zspalloc.f90 b/src/tools/psb_zspalloc.f90 index 55b6f812..33e8955d 100644 --- a/src/tools/psb_zspalloc.f90 +++ b/src/tools/psb_zspalloc.f90 @@ -92,7 +92,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz) ! set fields in desc_a%matrix_data.... loc_row = desc_a%matrix_data(psb_n_row_) m = desc_a%matrix_data(psb_m_) - n = desc_a%matrix_data(psb_n_) + n = desc_a%matrix_data(psb_n_) !...allocate matrix data... if (present(nnz))then @@ -133,7 +133,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz) if (debug) write(0,*) 'spall: ', & &desc_a%matrix_data(psb_dec_type_),psb_desc_bld_ - desc_a%matrix_data(psb_dec_type_) = psb_desc_bld_ +!!$ desc_a%matrix_data(psb_dec_type_) = psb_desc_bld_ return call psb_erractionrestore(err_act)