Fix vect_clone, expose to C interface

base/modules/serial/psb_c_vect_mod.F90

@@ -382,7 +382,7 @@ contains
     info = psb_success_
     call y%free(info)
     if ((info==0).and.allocated(x%v)) then
-      call y%bld(x%get_vect(),mold=x%v)
+      allocate(y%v,source=x%v, stat=info)
     end if
   end subroutine c_vect_clone
 

base/modules/serial/psb_d_vect_mod.F90

@@ -389,7 +389,7 @@ contains
     info = psb_success_
     call y%free(info)
     if ((info==0).and.allocated(x%v)) then
-      call y%bld(x%get_vect(),mold=x%v)
+      allocate(y%v,source=x%v, stat=info)
     end if
   end subroutine d_vect_clone
 

base/modules/serial/psb_i_vect_mod.F90

@@ -327,7 +327,7 @@ contains
     info = psb_success_
     call y%free(info)
     if ((info==0).and.allocated(x%v)) then
-      call y%bld(x%get_vect(),mold=x%v)
+      allocate(y%v,source=x%v, stat=info)
     end if
   end subroutine i_vect_clone
 

base/modules/serial/psb_l_vect_mod.F90

@@ -328,7 +328,7 @@ contains
     info = psb_success_
     call y%free(info)
     if ((info==0).and.allocated(x%v)) then
-      call y%bld(x%get_vect(),mold=x%v)
+      allocate(y%v,source=x%v, stat=info)
     end if
   end subroutine l_vect_clone
 

base/modules/serial/psb_s_vect_mod.F90

@@ -389,7 +389,7 @@ contains
     info = psb_success_
     call y%free(info)
     if ((info==0).and.allocated(x%v)) then
-      call y%bld(x%get_vect(),mold=x%v)
+      allocate(y%v,source=x%v, stat=info)
     end if
   end subroutine s_vect_clone
 

base/modules/serial/psb_z_vect_mod.F90

@@ -382,7 +382,7 @@ contains
     info = psb_success_
     call y%free(info)
     if ((info==0).and.allocated(x%v)) then
-      call y%bld(x%get_vect(),mold=x%v)
+      allocate(y%v,source=x%v, stat=info)
     end if
   end subroutine z_vect_clone
 

cbind/base/psb_c_cbase.h

@@ -22,6 +22,7 @@ psb_c_t   *psb_c_cvect_get_cpy( psb_c_cvector *xh);
 psb_i_t    psb_c_cvect_f_get_cpy(psb_c_t *v, psb_c_cvector *xh);
 psb_i_t    psb_c_cvect_zero(psb_c_cvector *xh);
 psb_i_t   *psb_c_cvect_f_get_pnt(psb_c_cvector *xh);
+psb_i_t    psb_c_cvect_clone(psb_c_cvector *xh,psb_c_cvector *yh);
 
 psb_i_t    psb_c_cgeall(psb_c_cvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_cgeall_remote(psb_c_cvector *xh, psb_c_descriptor *cdh);

cbind/base/psb_c_dbase.h

@@ -22,6 +22,7 @@ psb_d_t   *psb_c_dvect_get_cpy( psb_c_dvector *xh);
 psb_i_t    psb_c_dvect_f_get_cpy(psb_d_t *v, psb_c_dvector *xh);
 psb_i_t    psb_c_dvect_zero(psb_c_dvector *xh);
 psb_d_t	  *psb_c_dvect_f_get_pnt( psb_c_dvector *xh);
+psb_i_t    psb_c_dvect_clone(psb_c_dvector *xh,psb_c_dvector *yh);
 
 psb_i_t    psb_c_dgeall(psb_c_dvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_dgeall_remote(psb_c_dvector *xh, psb_c_descriptor *cdh);

cbind/base/psb_c_sbase.h

@@ -22,6 +22,7 @@ psb_s_t   *psb_c_svect_get_cpy( psb_c_svector *xh);
 psb_i_t    psb_c_svect_f_get_cpy(psb_s_t *v, psb_c_svector *xh);
 psb_i_t    psb_c_svect_zero(psb_c_svector *xh);
 psb_s_t	  *psb_c_svect_f_get_pnt( psb_c_svector *xh);
+psb_i_t    psb_c_svect_clone(psb_c_svector *xh,psb_c_svector *yh);
 
 psb_i_t    psb_c_sgeall(psb_c_svector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_sgeall_remote(psb_c_svector *xh, psb_c_descriptor *cdh);

cbind/base/psb_c_serial_cbind_mod.F90

@@ -205,4 +205,28 @@ contains
   end function psb_c_cvect_set_vect
 
 
+  function psb_c_cvect_clone(xh,yh) bind(c) result(info)
+    implicit none
+
+    integer(psb_c_ipk_) :: info
+    type(psb_c_cvector) :: xh,yh
+
+    type(psb_c_vect_type), pointer :: xp,yp
+
+    info = -1
+
+    if (c_associated(xh%item)) then
+      call c_f_pointer(xh%item,xp)
+    else
+      return      
+    end if
+    if (c_associated(yh%item)) then
+      call c_f_pointer(yh%item,yp)
+    else
+      return      
+    end if
+    call xp%clone(yp,info)
+    
+  end function psb_c_cvect_clone
+
 end module psb_c_serial_cbind_mod

cbind/base/psb_c_zbase.h

@@ -22,6 +22,7 @@ psb_z_t   *psb_c_zvect_get_cpy( psb_c_zvector *xh);
 psb_i_t    psb_c_zvect_f_get_cpy(psb_z_t *v, psb_c_zvector *xh);
 psb_i_t    psb_c_zvect_zero(psb_c_zvector *xh);
 psb_z_t	  *psb_c_zvect_f_get_pnt( psb_c_zvector *xh);
+psb_i_t    psb_c_zvect_clone(psb_c_zvector *xh,psb_c_zvector *yh);
 
 psb_i_t    psb_c_zgeall(psb_c_zvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_zgeall_remote(psb_c_zvector *xh, psb_c_descriptor *cdh);

cbind/base/psb_d_serial_cbind_mod.F90

@@ -205,4 +205,28 @@ contains
   end function psb_c_dvect_set_vect
 
 
+  function psb_c_dvect_clone(xh,yh) bind(c) result(info)
+    implicit none
+
+    integer(psb_c_ipk_) :: info
+    type(psb_c_dvector) :: xh,yh
+
+    type(psb_d_vect_type), pointer :: xp,yp
+
+    info = -1
+
+    if (c_associated(xh%item)) then
+      call c_f_pointer(xh%item,xp)
+    else
+      return      
+    end if
+    if (c_associated(yh%item)) then
+      call c_f_pointer(yh%item,yp)
+    else
+      return      
+    end if
+    call xp%clone(yp,info)
+    
+  end function psb_c_dvect_clone
+
 end module psb_d_serial_cbind_mod

cbind/base/psb_s_serial_cbind_mod.F90

@@ -205,4 +205,28 @@ contains
   end function psb_c_svect_set_vect
 
 
+  function psb_c_svect_clone(xh,yh) bind(c) result(info)
+    implicit none
+
+    integer(psb_c_ipk_) :: info
+    type(psb_c_svector) :: xh,yh
+
+    type(psb_s_vect_type), pointer :: xp,yp
+
+    info = -1
+
+    if (c_associated(xh%item)) then
+      call c_f_pointer(xh%item,xp)
+    else
+      return      
+    end if
+    if (c_associated(yh%item)) then
+      call c_f_pointer(yh%item,yp)
+    else
+      return      
+    end if
+    call xp%clone(yp,info)
+    
+  end function psb_c_svect_clone
+
 end module psb_s_serial_cbind_mod

cbind/base/psb_z_serial_cbind_mod.F90

@@ -205,4 +205,28 @@ contains
   end function psb_c_zvect_set_vect
 
 
+  function psb_c_zvect_clone(xh,yh) bind(c) result(info)
+    implicit none
+
+    integer(psb_c_ipk_) :: info
+    type(psb_c_zvector) :: xh,yh
+
+    type(psb_z_vect_type), pointer :: xp,yp
+
+    info = -1
+
+    if (c_associated(xh%item)) then
+      call c_f_pointer(xh%item,xp)
+    else
+      return      
+    end if
+    if (c_associated(yh%item)) then
+      call c_f_pointer(yh%item,yp)
+    else
+      return      
+    end if
+    call xp%clone(yp,info)
+    
+  end function psb_c_zvect_clone
+
 end module psb_z_serial_cbind_mod

cbind/psb_c_base.h

@@ -102,9 +102,6 @@ extern "C" {
 #define psb_dupl_add_    1
 #define psb_dupl_err_    2
 #define psb_dupl_def_    psb_dupl_ovwrt_
-/*  legal values for bldmode argument */
-#define psb_matbld_noremote_ 0
-#define psb_matbld_remote_   1
 
   /* legal values for afmt */
 #define PSB_AFMT_CSR     "CSR"

cbind/psb_c_cbase.h

@@ -22,10 +22,10 @@ psb_c_t   *psb_c_cvect_get_cpy( psb_c_cvector *xh);
 psb_i_t    psb_c_cvect_f_get_cpy(psb_c_t *v, psb_c_cvector *xh);
 psb_i_t    psb_c_cvect_zero(psb_c_cvector *xh);
 psb_i_t   *psb_c_cvect_f_get_pnt(psb_c_cvector *xh);
+psb_i_t    psb_c_cvect_clone(psb_c_cvector *xh,psb_c_cvector *yh);
 
 psb_i_t    psb_c_cgeall(psb_c_cvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_cgeall_remote(psb_c_cvector *xh, psb_c_descriptor *cdh);
-psb_i_t    psb_c_cgeall_remote_options(psb_c_cvector *xh, psb_c_descriptor *cdh, psb_i_t bldmode, psb_i_t dupl);
 psb_i_t    psb_c_cgeins(psb_i_t nz, const psb_l_t *irw, const psb_c_t *val,
 		    psb_c_cvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_cgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_c_t *val,

cbind/psb_c_dbase.h

@@ -22,10 +22,10 @@ psb_d_t   *psb_c_dvect_get_cpy( psb_c_dvector *xh);
 psb_i_t    psb_c_dvect_f_get_cpy(psb_d_t *v, psb_c_dvector *xh);
 psb_i_t    psb_c_dvect_zero(psb_c_dvector *xh);
 psb_d_t	  *psb_c_dvect_f_get_pnt( psb_c_dvector *xh);
+psb_i_t    psb_c_dvect_clone(psb_c_dvector *xh,psb_c_dvector *yh);
 
 psb_i_t    psb_c_dgeall(psb_c_dvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_dgeall_remote(psb_c_dvector *xh, psb_c_descriptor *cdh);
-psb_i_t    psb_c_dgeall_remote_options(psb_c_dvector *xh, psb_c_descriptor *cdh, psb_i_t bldmode, psb_i_t dupl);
 psb_i_t    psb_c_dgeins(psb_i_t nz, const psb_l_t *irw, const psb_d_t *val,
 		    psb_c_dvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_dgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_d_t *val,

cbind/psb_c_sbase.h

@@ -22,10 +22,10 @@ psb_s_t   *psb_c_svect_get_cpy( psb_c_svector *xh);
 psb_i_t    psb_c_svect_f_get_cpy(psb_s_t *v, psb_c_svector *xh);
 psb_i_t    psb_c_svect_zero(psb_c_svector *xh);
 psb_s_t	  *psb_c_svect_f_get_pnt( psb_c_svector *xh);
+psb_i_t    psb_c_svect_clone(psb_c_svector *xh,psb_c_svector *yh);
 
 psb_i_t    psb_c_sgeall(psb_c_svector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_sgeall_remote(psb_c_svector *xh, psb_c_descriptor *cdh);
-psb_i_t    psb_c_sgeall_remote_options(psb_c_svector *xh, psb_c_descriptor *cdh, psb_i_t bldmode, psb_i_t dupl);
 psb_i_t    psb_c_sgeins(psb_i_t nz, const psb_l_t *irw, const psb_s_t *val,
 		    psb_c_svector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_sgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_s_t *val,

cbind/psb_c_zbase.h

@@ -22,10 +22,10 @@ psb_z_t   *psb_c_zvect_get_cpy( psb_c_zvector *xh);
 psb_i_t    psb_c_zvect_f_get_cpy(psb_z_t *v, psb_c_zvector *xh);
 psb_i_t    psb_c_zvect_zero(psb_c_zvector *xh);
 psb_z_t	  *psb_c_zvect_f_get_pnt( psb_c_zvector *xh);
+psb_i_t    psb_c_zvect_clone(psb_c_zvector *xh,psb_c_zvector *yh);
 
 psb_i_t    psb_c_zgeall(psb_c_zvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_zgeall_remote(psb_c_zvector *xh, psb_c_descriptor *cdh);
-psb_i_t    psb_c_zgeall_remote_options(psb_c_zvector *xh, psb_c_descriptor *cdh, psb_i_t bldmode, psb_i_t dupl);
 psb_i_t    psb_c_zgeins(psb_i_t nz, const psb_l_t *irw, const psb_z_t *val,
 		    psb_c_zvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_zgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_z_t *val,