*** empty log message ***

10 years ago · 1fb627f947
parent 014dc88f59
commit 1fb627f947
1 changed files with 4 additions and 1 deletions
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@ -2788,6 +2788,9 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
  character(len=20)   :: name

  info = psb_success_
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+

  if (.not.b%is_sorted()) then 
    ! This is to have fix_coo called behind the scenes