diff --git a/base/serial/psb_getrow_mod.f90 b/base/serial/psb_getrow_mod.f90
index 9ee0e19e..78910fb8 100644
--- a/base/serial/psb_getrow_mod.f90
+++ b/base/serial/psb_getrow_mod.f90
@@ -546,7 +546,7 @@ contains
     integer                              :: lrw,info
     integer, optional                    :: iren(:)
     integer  :: nzin_, nza, idx,ip,jp,i,j,k, nzt
-    logical, parameter :: debug=.true.
+    logical, parameter :: debug=.false.
 
     nza = a%infoa(psb_nnz_)
     if (a%pl(1) /= 0) then