*** empty log message ***

12 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,7 +2788,10 @@ 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
    call tmp%cp_from_coo(b,info)