psblas3:

base/modules/psb_error_mod.F90
 base/serial/impl/psb_c_coo_impl.f90
 base/serial/impl/psb_d_coo_impl.f90
 base/serial/impl/psb_s_coo_impl.f90
 base/serial/impl/psb_z_coo_impl.f90

Slight mod in error code.
Fix silly bug for COO in the case NZ=1

base/modules/psb_error_mod.F90

@@ -314,7 +314,8 @@ contains
       write(psb_err_unit,'("input argument n. ",i0," has an invalid value")')i_e_d(1)
       write(psb_err_unit,'("current value is ",a)')a_e_d(2:2)
     case(psb_err_iarg_not_gtia_ii_)
-      write(psb_err_unit,'("input argument n. ",i0," must be equal or greater than input argument n. ",i0)') &
+      write(psb_err_unit,&
+           & '("input argument n. ",i0," must be equal or greater than input argument n. ",i0)') &
            & i_e_d(1), i_e_d(3)
       write(psb_err_unit,'("current values are ",i0," < ",i0)')&
            & i_e_d(2),i_e_d(5)

base/serial/impl/psb_c_coo_impl.f90

@@ -2971,12 +2971,13 @@ subroutine psb_c_fix_coo(a,info,idir)
   endif
 
   nza = a%get_nzeros()
-  if (nza < 2) return
-
+  if (nza >= 2) then 
     dupl_ = a%get_dupl()
-
     call psb_c_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
     if (info /= psb_success_) goto 9999
+  else
+    i = nza
+  end if
   call a%set_sorted()
   call a%set_nzeros(i)
   call a%set_asb()

base/serial/impl/psb_d_coo_impl.f90

@@ -3017,12 +3017,13 @@ subroutine psb_d_fix_coo(a,info,idir)
   endif
 
   nza = a%get_nzeros()
-  if (nza < 2) return
-
+  if (nza >= 2) then 
     dupl_ = a%get_dupl()
-
     call psb_d_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
     if (info /= psb_success_) goto 9999
+  else
+    i = nza
+  end if
   call a%set_sorted()
   call a%set_nzeros(i)
   call a%set_asb()

base/serial/impl/psb_s_coo_impl.f90

@@ -2770,12 +2770,13 @@ subroutine psb_s_fix_coo(a,info,idir)
   endif
 
   nza = a%get_nzeros()
-  if (nza < 2) return
-
+  if (nza >= 2) then 
     dupl_ = a%get_dupl()
-
     call psb_s_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
     if (info /= psb_success_) goto 9999
+  else
+    i = nza
+  end if
   call a%set_sorted()
   call a%set_nzeros(i)
   call a%set_asb()

base/serial/impl/psb_z_coo_impl.f90

@@ -2970,12 +2970,13 @@ subroutine psb_z_fix_coo(a,info,idir)
   endif
 
   nza = a%get_nzeros()
-  if (nza < 2) return
-
+  if (nza >= 2) then 
     dupl_ = a%get_dupl()
-
     call psb_z_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
     if (info /= psb_success_) goto 9999
+  else
+    i = nza
+  end if
   call a%set_sorted()
   call a%set_nzeros(i)
   call a%set_asb()