Implement psi_exscan and use in _from_coo

base/modules/auxil/psi_c_serial_mod.f90

@@ -156,4 +156,16 @@ module psi_c_serial_mod
     end subroutine psi_csctv
   end interface psi_sct
 
+  interface psi_exscan
+    subroutine psi_c_exscanv(n,x,info,shift,ibase)
+      import :: psb_ipk_, psb_spk_
+      implicit none
+      integer(psb_ipk_), intent(in)      :: n
+      complex(psb_spk_), intent (inout)    :: x(:)
+      integer(psb_ipk_), intent(out)     :: info
+      complex(psb_spk_), intent(in), optional :: shift
+      integer(psb_ipk_), intent(in), optional :: ibase
+    end subroutine psi_c_exscanv
+  end interface psi_exscan
+  
 end module psi_c_serial_mod

base/modules/auxil/psi_d_serial_mod.f90

@@ -156,4 +156,16 @@ module psi_d_serial_mod
     end subroutine psi_dsctv
   end interface psi_sct
 
+  interface psi_exscan
+    subroutine psi_d_exscanv(n,x,info,shift,ibase)
+      import :: psb_ipk_, psb_dpk_
+      implicit none
+      integer(psb_ipk_), intent(in)      :: n
+      real(psb_dpk_), intent (inout)    :: x(:)
+      integer(psb_ipk_), intent(out)     :: info
+      real(psb_dpk_), intent(in), optional :: shift
+      integer(psb_ipk_), intent(in), optional :: ibase
+    end subroutine psi_d_exscanv
+  end interface psi_exscan
+  
 end module psi_d_serial_mod

base/modules/auxil/psi_e_serial_mod.f90

@@ -156,4 +156,16 @@ module psi_e_serial_mod
     end subroutine psi_esctv
   end interface psi_sct
 
+  interface psi_exscan
+    subroutine psi_e_exscanv(n,x,info,shift,ibase)
+      import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
+      implicit none
+      integer(psb_ipk_), intent(in)      :: n
+      integer(psb_epk_), intent (inout)    :: x(:)
+      integer(psb_ipk_), intent(out)     :: info
+      integer(psb_epk_), intent(in), optional :: shift
+      integer(psb_ipk_), intent(in), optional :: ibase
+    end subroutine psi_e_exscanv
+  end interface psi_exscan
+  
 end module psi_e_serial_mod

base/modules/auxil/psi_i2_serial_mod.f90

@@ -156,4 +156,16 @@ module psi_i2_serial_mod
     end subroutine psi_i2sctv
   end interface psi_sct
 
+  interface psi_exscan
+    subroutine psi_i2_exscanv(n,x,info,shift,ibase)
+      import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
+      implicit none
+      integer(psb_ipk_), intent(in)      :: n
+      integer(psb_i2pk_), intent (inout)    :: x(:)
+      integer(psb_ipk_), intent(out)     :: info
+      integer(psb_i2pk_), intent(in), optional :: shift
+      integer(psb_ipk_), intent(in), optional :: ibase
+    end subroutine psi_i2_exscanv
+  end interface psi_exscan
+  
 end module psi_i2_serial_mod

base/modules/auxil/psi_m_serial_mod.f90

@@ -156,4 +156,16 @@ module psi_m_serial_mod
     end subroutine psi_msctv
   end interface psi_sct
 
+  interface psi_exscan
+    subroutine psi_m_exscanv(n,x,info,shift,ibase)
+      import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
+      implicit none
+      integer(psb_ipk_), intent(in)      :: n
+      integer(psb_mpk_), intent (inout)    :: x(:)
+      integer(psb_ipk_), intent(out)     :: info
+      integer(psb_mpk_), intent(in), optional :: shift
+      integer(psb_ipk_), intent(in), optional :: ibase
+    end subroutine psi_m_exscanv
+  end interface psi_exscan
+  
 end module psi_m_serial_mod

base/modules/auxil/psi_s_serial_mod.f90

@@ -156,4 +156,16 @@ module psi_s_serial_mod
     end subroutine psi_ssctv
   end interface psi_sct
 
+  interface psi_exscan
+    subroutine psi_s_exscanv(n,x,info,shift,ibase)
+      import :: psb_ipk_, psb_spk_
+      implicit none
+      integer(psb_ipk_), intent(in)      :: n
+      real(psb_spk_), intent (inout)    :: x(:)
+      integer(psb_ipk_), intent(out)     :: info
+      real(psb_spk_), intent(in), optional :: shift
+      integer(psb_ipk_), intent(in), optional :: ibase
+    end subroutine psi_s_exscanv
+  end interface psi_exscan
+  
 end module psi_s_serial_mod

base/modules/auxil/psi_z_serial_mod.f90

@@ -156,4 +156,16 @@ module psi_z_serial_mod
     end subroutine psi_zsctv
   end interface psi_sct
 
+  interface psi_exscan
+    subroutine psi_z_exscanv(n,x,info,shift,ibase)
+      import :: psb_ipk_, psb_dpk_
+      implicit none
+      integer(psb_ipk_), intent(in)      :: n
+      complex(psb_dpk_), intent (inout)    :: x(:)
+      integer(psb_ipk_), intent(out)     :: info
+      complex(psb_dpk_), intent(in), optional :: shift
+      integer(psb_ipk_), intent(in), optional :: ibase
+    end subroutine psi_z_exscanv
+  end interface psi_exscan
+  
 end module psi_z_serial_mod