fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed gather name function

Browse Source
This commit is contained in:
Cirdans-Home
2021-03-29 11:14:40 +02:00
parent 718e85a528
commit 10bdde008b
4 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_c_comm_cbind_mod.f90
+4 -4
View File
@@ -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
+4 -4
View File
@@ -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
+4 -4
View File
@@ -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
+4 -4
View File
@@ -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