psblas3:

psb_c_csc_impl.f03
 psb_c_csr_impl.f03
 psb_d_csc_impl.f03
 psb_d_csr_impl.f03
 psb_s_csc_impl.f03
 psb_s_csr_impl.f03
 psb_z_csc_impl.f03
 psb_z_csr_impl.f03

Fixed  missing initialization of debug_unit in some methods.

base/serial/f03/psb_c_csc_impl.f03

@@ -2371,6 +2371,9 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
   character(len=20)   :: name
 
   info = psb_success_
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
 
   call b%fix(info, idir=1)
   if (info /= psb_success_) return

base/serial/f03/psb_c_csr_impl.f03

@@ -2535,6 +2535,9 @@ subroutine psb_c_mv_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()
+
 
   call b%fix(info)
   if (info /= psb_success_) return

base/serial/f03/psb_d_csc_impl.f03

@@ -2244,6 +2244,9 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
   character(len=20)   :: name
 
   info = psb_success_
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
 
   call b%fix(info, idir=1)
   if (info /= psb_success_) return

base/serial/f03/psb_d_csr_impl.f03

@@ -2581,10 +2581,13 @@ subroutine psb_d_mv_csr_from_coo(a,b,info)
   logical             :: rwshr_
   Integer             :: nza, nr, i,j,irw, idl,err_act, nc
   Integer, Parameter  :: maxtry=8
-  integer              :: debug_level, debug_unit
+  integer             :: debug_level, debug_unit
   character(len=20)   :: name
 
   info = psb_success_
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
 
   call b%fix(info)
   if (info /= psb_success_) return

base/serial/f03/psb_s_csc_impl.f03

@@ -2009,6 +2009,9 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
   character(len=20)   :: name
 
   info = psb_success_
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
 
   call b%fix(info, idir=1)
   if (info /= psb_success_) return

base/serial/f03/psb_s_csr_impl.f03

@@ -2343,6 +2343,9 @@ subroutine psb_s_mv_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()
+
 
   call b%fix(info)
   if (info /= psb_success_) return

base/serial/f03/psb_z_csc_impl.f03

@@ -2372,6 +2372,9 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
   character(len=20)   :: name
 
   info = psb_success_
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
 
   call b%fix(info, idir=1)
   if (info /= psb_success_) return

base/serial/f03/psb_z_csr_impl.f03

@@ -1,4 +1,5 @@
 
+
 ! == ===================================
 !
 !
@@ -2535,6 +2536,9 @@ subroutine psb_z_mv_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()
+
 
   call b%fix(info)
   if (info /= psb_success_) return