From 1fb627f9476f835951e7c08ffbf1395daa0af357 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 13 Oct 2014 16:22:56 +0000
Subject: [PATCH] *** empty log message ***

---
 base/serial/impl/psb_d_csr_impl.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90
index 2c7f07c3..bd08be0d 100644
--- 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)