Bug: spall was changing dec_type_ in desc_a

19 years ago · 208952a9a5
parent f678cbe25e
commit 208952a9a5
2 changed files with 4 additions and 4 deletions
--- a/src/tools/psb_dspalloc.f90
+++ b/src/tools/psb_dspalloc.f90
@ -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)
--- a/src/tools/psb_zspalloc.f90
+++ b/src/tools/psb_zspalloc.f90
@ -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)