From 10bdde008b8f02a8c2c88977de17680bd1e997fd Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 29 Mar 2021 11:14:40 +0200 Subject: [PATCH] Fixed gather name function --- cbind/base/psb_c_comm_cbind_mod.f90 | 8 ++++---- cbind/base/psb_d_comm_cbind_mod.f90 | 8 ++++---- cbind/base/psb_s_comm_cbind_mod.f90 | 8 ++++---- cbind/base/psb_z_comm_cbind_mod.f90 | 8 ++++---- 4 files changed, 16 insertions(+), 16 deletions(-) diff --git a/cbind/base/psb_c_comm_cbind_mod.f90 b/cbind/base/psb_c_comm_cbind_mod.f90 index 9b005112..2e1d305b 100644 --- a/cbind/base/psb_c_comm_cbind_mod.f90 +++ b/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 diff --git a/cbind/base/psb_d_comm_cbind_mod.f90 b/cbind/base/psb_d_comm_cbind_mod.f90 index 0c078e53..653a2484 100644 --- a/cbind/base/psb_d_comm_cbind_mod.f90 +++ b/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 diff --git a/cbind/base/psb_s_comm_cbind_mod.f90 b/cbind/base/psb_s_comm_cbind_mod.f90 index a42c399a..8ad27124 100644 --- a/cbind/base/psb_s_comm_cbind_mod.f90 +++ b/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 diff --git a/cbind/base/psb_z_comm_cbind_mod.f90 b/cbind/base/psb_z_comm_cbind_mod.f90 index 3aef5cb8..44ee96c3 100644 --- a/cbind/base/psb_z_comm_cbind_mod.f90 +++ b/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