Improve implementation of fix_coo using exscan

base/modules/serial/psb_c_base_mat_mod.F90

@@ -1866,18 +1866,6 @@ module psb_c_base_mat_mod
     end subroutine psb_c_fix_coo_inner
   end interface
 
-  interface
-    subroutine psb_c_fix_coo_inner_colmajor(nr,nc,nzin,dupl,&
-         & ia,ja,val,iaux,nzout,info)
-      import
-      integer(psb_ipk_), intent(in)           :: nr,nc,nzin,dupl
-      integer(psb_ipk_), intent(inout)        :: ia(:), ja(:), iaux(:)
-      complex(psb_spk_), intent(inout) :: val(:)
-      integer(psb_ipk_), intent(out)          :: nzout
-      integer(psb_ipk_), intent(out)          :: info
-    end subroutine psb_c_fix_coo_inner_colmajor
-  end interface
-
   interface
     subroutine psb_c_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,&
          & ia,ja,val,iaux,nzout,info)

base/modules/serial/psb_d_base_mat_mod.F90

@@ -1866,18 +1866,6 @@ module psb_d_base_mat_mod
     end subroutine psb_d_fix_coo_inner
   end interface
 
-  interface
-    subroutine psb_d_fix_coo_inner_colmajor(nr,nc,nzin,dupl,&
-         & ia,ja,val,iaux,nzout,info)
-      import
-      integer(psb_ipk_), intent(in)           :: nr,nc,nzin,dupl
-      integer(psb_ipk_), intent(inout)        :: ia(:), ja(:), iaux(:)
-      real(psb_dpk_), intent(inout) :: val(:)
-      integer(psb_ipk_), intent(out)          :: nzout
-      integer(psb_ipk_), intent(out)          :: info
-    end subroutine psb_d_fix_coo_inner_colmajor
-  end interface
-
   interface
     subroutine psb_d_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,&
          & ia,ja,val,iaux,nzout,info)

base/modules/serial/psb_s_base_mat_mod.F90

@@ -1866,18 +1866,6 @@ module psb_s_base_mat_mod
     end subroutine psb_s_fix_coo_inner
   end interface
 
-  interface
-    subroutine psb_s_fix_coo_inner_colmajor(nr,nc,nzin,dupl,&
-         & ia,ja,val,iaux,nzout,info)
-      import
-      integer(psb_ipk_), intent(in)           :: nr,nc,nzin,dupl
-      integer(psb_ipk_), intent(inout)        :: ia(:), ja(:), iaux(:)
-      real(psb_spk_), intent(inout) :: val(:)
-      integer(psb_ipk_), intent(out)          :: nzout
-      integer(psb_ipk_), intent(out)          :: info
-    end subroutine psb_s_fix_coo_inner_colmajor
-  end interface
-
   interface
     subroutine psb_s_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,&
          & ia,ja,val,iaux,nzout,info)

base/modules/serial/psb_z_base_mat_mod.F90

@@ -1866,18 +1866,6 @@ module psb_z_base_mat_mod
     end subroutine psb_z_fix_coo_inner
   end interface
 
-  interface
-    subroutine psb_z_fix_coo_inner_colmajor(nr,nc,nzin,dupl,&
-         & ia,ja,val,iaux,nzout,info)
-      import
-      integer(psb_ipk_), intent(in)           :: nr,nc,nzin,dupl
-      integer(psb_ipk_), intent(inout)        :: ia(:), ja(:), iaux(:)
-      complex(psb_dpk_), intent(inout) :: val(:)
-      integer(psb_ipk_), intent(out)          :: nzout
-      integer(psb_ipk_), intent(out)          :: info
-    end subroutine psb_z_fix_coo_inner_colmajor
-  end interface
-
   interface
     subroutine psb_z_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,&
          & ia,ja,val,iaux,nzout,info)