diff --git a/base/serial/impl/psb_c_coo_impl.f90 b/base/serial/impl/psb_c_coo_impl.f90
index 12983a45..dc840176 100644
--- a/base/serial/impl/psb_c_coo_impl.f90
+++ b/base/serial/impl/psb_c_coo_impl.f90
@@ -3424,6 +3424,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
         do i=2,nzin
           if (  (ia(i) < 1).or.(ia(i)> nr)) then 
             use_buffers = .false.
+            srt_inp     = .false. 
             exit
           end if
           iaux(ia(i)) = iaux(ia(i)) + 1
@@ -3744,6 +3745,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
         do i=2,nzin
           if (  (ja(i) < 1).or.(ja(i)> nc)) then 
             use_buffers = .false.
+            srt_inp     = .false.
             exit
           end if
           iaux(ja(i)) = iaux(ja(i)) + 1
diff --git a/base/serial/impl/psb_d_coo_impl.f90 b/base/serial/impl/psb_d_coo_impl.f90
index b5ee31a4..1c257972 100644
--- a/base/serial/impl/psb_d_coo_impl.f90
+++ b/base/serial/impl/psb_d_coo_impl.f90
@@ -3424,6 +3424,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
         do i=2,nzin
           if (  (ia(i) < 1).or.(ia(i)> nr)) then 
             use_buffers = .false.
+            srt_inp     = .false. 
             exit
           end if
           iaux(ia(i)) = iaux(ia(i)) + 1
@@ -3744,6 +3745,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
         do i=2,nzin
           if (  (ja(i) < 1).or.(ja(i)> nc)) then 
             use_buffers = .false.
+            srt_inp     = .false.
             exit
           end if
           iaux(ja(i)) = iaux(ja(i)) + 1
diff --git a/base/serial/impl/psb_s_coo_impl.f90 b/base/serial/impl/psb_s_coo_impl.f90
index a6c017f1..4ad5bf23 100644
--- a/base/serial/impl/psb_s_coo_impl.f90
+++ b/base/serial/impl/psb_s_coo_impl.f90
@@ -3424,6 +3424,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
         do i=2,nzin
           if (  (ia(i) < 1).or.(ia(i)> nr)) then 
             use_buffers = .false.
+            srt_inp     = .false. 
             exit
           end if
           iaux(ia(i)) = iaux(ia(i)) + 1
@@ -3744,6 +3745,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
         do i=2,nzin
           if (  (ja(i) < 1).or.(ja(i)> nc)) then 
             use_buffers = .false.
+            srt_inp     = .false.
             exit
           end if
           iaux(ja(i)) = iaux(ja(i)) + 1
diff --git a/base/serial/impl/psb_z_coo_impl.f90 b/base/serial/impl/psb_z_coo_impl.f90
index be05d31b..f625f23f 100644
--- a/base/serial/impl/psb_z_coo_impl.f90
+++ b/base/serial/impl/psb_z_coo_impl.f90
@@ -3424,6 +3424,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
         do i=2,nzin
           if (  (ia(i) < 1).or.(ia(i)> nr)) then 
             use_buffers = .false.
+            srt_inp     = .false. 
             exit
           end if
           iaux(ia(i)) = iaux(ia(i)) + 1
@@ -3744,6 +3745,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
         do i=2,nzin
           if (  (ja(i) < 1).or.(ja(i)> nc)) then 
             use_buffers = .false.
+            srt_inp     = .false.
             exit
           end if
           iaux(ja(i)) = iaux(ja(i)) + 1