Fixed gather name function

cbind/base/psb_c_comm_cbind_mod.f90

@@ -172,7 +172,7 @@ contains
 
   end function psb_c_cvscatter
 
-  function psb_c_cvgather(v,xh,cdh) bind(c) result(res)
+  function psb_c_cvgather_f(v,xh,cdh) bind(c) result(res)
     implicit none
 
     integer(psb_c_ipk_)    :: res
@@ -203,9 +203,9 @@ contains
     if (res /=0) return
     sz = size(fv)
     v(1:sz) = fv(1:sz)
-  end function psb_c_cvgather
+  end function psb_c_cvgather_f
 
-  function psb_c_cspgather(gah,ah,cdh) bind(c) result(res)
+  function psb_c_cspgather_f(gah,ah,cdh) bind(c) result(res)
     implicit none
 
     integer(psb_c_ipk_)    :: res
@@ -234,6 +234,6 @@ contains
     end if
     call psb_gather(gap,ap,descp,info)
     res = info
-  end function psb_c_cspgather
+  end function psb_c_cspgather_f
 
 end module psb_c_comm_cbind_mod

cbind/base/psb_d_comm_cbind_mod.f90

@@ -172,7 +172,7 @@ contains
 
   end function psb_c_dvscatter
 
-  function psb_c_dvgather(v,xh,cdh) bind(c) result(res)
+  function psb_c_dvgather_f(v,xh,cdh) bind(c) result(res)
     implicit none
 
     integer(psb_c_ipk_)    :: res
@@ -203,9 +203,9 @@ contains
     if (res /=0) return
     sz = size(fv)
     v(1:sz) = fv(1:sz)
-  end function psb_c_dvgather
+  end function psb_c_dvgather_f
 
-  function psb_c_dspgather(gah,ah,cdh) bind(c) result(res)
+  function psb_c_dspgather_f(gah,ah,cdh) bind(c) result(res)
     implicit none
 
     integer(psb_c_ipk_)    :: res
@@ -234,6 +234,6 @@ contains
     end if
     call psb_gather(gap,ap,descp,info)
     res = info
-  end function psb_c_dspgather
+  end function psb_c_dspgather_f
 
 end module psb_d_comm_cbind_mod

cbind/base/psb_s_comm_cbind_mod.f90

@@ -172,7 +172,7 @@ contains
 
   end function psb_c_svscatter
 
-  function psb_c_svgather(v,xh,cdh) bind(c) result(res)
+  function psb_c_svgather_f(v,xh,cdh) bind(c) result(res)
     implicit none
 
     integer(psb_c_ipk_)    :: res
@@ -203,9 +203,9 @@ contains
     if (res /=0) return
     sz = size(fv)
     v(1:sz) = fv(1:sz)
-  end function psb_c_svgather
+  end function psb_c_svgather_f
 
-  function psb_c_sspgather(gah,ah,cdh) bind(c) result(res)
+  function psb_c_sspgather_f(gah,ah,cdh) bind(c) result(res)
     implicit none
 
     integer(psb_c_ipk_)    :: res
@@ -234,6 +234,6 @@ contains
     end if
     call psb_gather(gap,ap,descp,info)
     res = info
-  end function psb_c_sspgather
+  end function psb_c_sspgather_f
 
 end module psb_s_comm_cbind_mod

cbind/base/psb_z_comm_cbind_mod.f90

@@ -172,7 +172,7 @@ contains
 
   end function psb_c_zvscatter
 
-  function psb_c_zvgather(v,xh,cdh) bind(c) result(res)
+  function psb_c_zvgather_f(v,xh,cdh) bind(c) result(res)
     implicit none
 
     integer(psb_c_ipk_)    :: res
@@ -203,9 +203,9 @@ contains
     if (res /=0) return
     sz = size(fv)
     v(1:sz) = fv(1:sz)
-  end function psb_c_zvgather
+  end function psb_c_zvgather_f
 
-  function psb_c_zspgather(gah,ah,cdh) bind(c) result(res)
+  function psb_c_zspgather_f(gah,ah,cdh) bind(c) result(res)
     implicit none
 
     integer(psb_c_ipk_)    :: res
@@ -234,6 +234,6 @@ contains
     end if
     call psb_gather(gap,ap,descp,info)
     res = info
-  end function psb_c_zspgather
+  end function psb_c_zspgather_f
 
 end module psb_z_comm_cbind_mod