Fix coo_inner impl.

base/modules/serial/psb_c_base_mat_mod.F90

@@ -1865,6 +1865,27 @@ module psb_c_base_mat_mod
       integer(psb_ipk_), intent(in), optional :: idir
     end subroutine psb_c_fix_coo_inner
   end interface
+  interface 
+    subroutine psb_c_fix_coo_inner_rowmajor(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_rowmajor
+  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
 
   !
   !> Function fix_coo

base/modules/serial/psb_d_base_mat_mod.F90

@@ -1865,6 +1865,27 @@ module psb_d_base_mat_mod
       integer(psb_ipk_), intent(in), optional :: idir
     end subroutine psb_d_fix_coo_inner
   end interface
+  interface 
+    subroutine psb_d_fix_coo_inner_rowmajor(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_rowmajor
+  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
 
   !
   !> Function fix_coo

base/modules/serial/psb_s_base_mat_mod.F90

@@ -1865,6 +1865,27 @@ module psb_s_base_mat_mod
       integer(psb_ipk_), intent(in), optional :: idir
     end subroutine psb_s_fix_coo_inner
   end interface
+  interface 
+    subroutine psb_s_fix_coo_inner_rowmajor(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_rowmajor
+  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
 
   !
   !> Function fix_coo

base/modules/serial/psb_z_base_mat_mod.F90

@@ -1865,6 +1865,27 @@ module psb_z_base_mat_mod
       integer(psb_ipk_), intent(in), optional :: idir
     end subroutine psb_z_fix_coo_inner
   end interface
+  interface 
+    subroutine psb_z_fix_coo_inner_rowmajor(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_rowmajor
+  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
 
   !
   !> Function fix_coo