fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Changed names to match header

Browse Source
newG2L
Cirdans-Home 4 years ago
parent 50da50f557
commit 91c328baba
4 changed files with 300 additions and 300 deletions
Show Stats Download Patch File Download Diff File

20
cbind/base/psb_c_comm_cbind_mod.f90
Unescape Escape View File

@ -6,7 +6,7 @@ module psb_c_comm_cbind_mod
contains
function psb_c_c_ovrl(xh,cdh) bind(c) result(res)
function psb_c_covrl(xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -35,9 +35,9 @@ contains
res = info
end function psb_c_c_ovrl
end function psb_c_covrl
function psb_c_c_ovrl_opt(xh,cdh,update,mode) bind(c) result(res)
function psb_c_covrl_opt(xh,cdh,update,mode) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: update, mode
@ -67,10 +67,10 @@ contains
res = info
end function psb_c_c_ovrl_opt
end function psb_c_covrl_opt
function psb_c_c_halo(xh,cdh) bind(c) result(res)
function psb_c_chalo(xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -99,9 +99,9 @@ contains
res = info
end function psb_c_c_halo
end function psb_c_chalo
function psb_c_c_halo_opt(xh,cdh,tran,data,mode) bind(c) result(res)
function psb_c_chalo_opt(xh,cdh,tran,data,mode) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: data, mode
@ -135,10 +135,10 @@ contains
res = info
end function psb_c_c_halo_opt
end function psb_c_chalo_opt
function psb_c_c_vscatter(ng,gx,xh,cdh) bind(c) result(res)
function psb_c_cvscatter(ng,gx,xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -170,7 +170,7 @@ contains
call psb_scatter(pgx,vp,descp,info)
res = info
end function psb_c_c_vscatter
end function psb_c_cvscatter
function psb_c_cvgather(v,xh,cdh) bind(c) result(res)
implicit none

20
cbind/base/psb_d_comm_cbind_mod.f90
Unescape Escape View File

@ -6,7 +6,7 @@ module psb_d_comm_cbind_mod
contains
function psb_c_d_ovrl(xh,cdh) bind(c) result(res)
function psb_c_dovrl(xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -35,9 +35,9 @@ contains
res = info
end function psb_c_d_ovrl
end function psb_c_dovrl
function psb_c_d_ovrl_opt(xh,cdh,update,mode) bind(c) result(res)
function psb_c_dovrl_opt(xh,cdh,update,mode) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: update, mode
@ -67,10 +67,10 @@ contains
res = info
end function psb_c_d_ovrl_opt
end function psb_c_dovrl_opt
function psb_c_d_halo(xh,cdh) bind(c) result(res)
function psb_c_dhalo(xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -99,9 +99,9 @@ contains
res = info
end function psb_c_d_halo
end function psb_c_dhalo
function psb_c_d_halo_opt(xh,cdh,tran,data,mode) bind(c) result(res)
function psb_c_dhalo_opt(xh,cdh,tran,data,mode) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: data, mode
@ -135,10 +135,10 @@ contains
res = info
end function psb_c_d_halo_opt
end function psb_c_dhalo_opt
function psb_c_d_vscatter(ng,gx,xh,cdh) bind(c) result(res)
function psb_c_dvscatter(ng,gx,xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -170,7 +170,7 @@ contains
call psb_scatter(pgx,vp,descp,info)
res = info
end function psb_c_d_vscatter
end function psb_c_dvscatter
function psb_c_dvgather(v,xh,cdh) bind(c) result(res)
implicit none

20
cbind/base/psb_s_comm_cbind_mod.f90
Unescape Escape View File

@ -6,7 +6,7 @@ module psb_s_comm_cbind_mod
contains
function psb_c_s_ovrl(xh,cdh) bind(c) result(res)
function psb_c_sovrl(xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -35,9 +35,9 @@ contains
res = info
end function psb_c_s_ovrl
end function psb_c_sovrl
function psb_c_s_ovrl_opt(xh,cdh,update,mode) bind(c) result(res)
function psb_c_sovrl_opt(xh,cdh,update,mode) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: update, mode
@ -67,10 +67,10 @@ contains
res = info
end function psb_c_s_ovrl_opt
end function psb_c_sovrl_opt
function psb_c_s_halo(xh,cdh) bind(c) result(res)
function psb_c_shalo(xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -99,9 +99,9 @@ contains
res = info
end function psb_c_s_halo
end function psb_c_shalo
function psb_c_s_halo_opt(xh,cdh,tran,data,mode) bind(c) result(res)
function psb_c_shalo_opt(xh,cdh,tran,data,mode) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: data, mode
@ -135,10 +135,10 @@ contains
res = info
end function psb_c_s_halo_opt
end function psb_c_shalo_opt
function psb_c_s_vscatter(ng,gx,xh,cdh) bind(c) result(res)
function psb_c_svscatter(ng,gx,xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -170,7 +170,7 @@ contains
call psb_scatter(pgx,vp,descp,info)
res = info
end function psb_c_s_vscatter
end function psb_c_svscatter
function psb_c_svgather(v,xh,cdh) bind(c) result(res)
implicit none

20
cbind/base/psb_z_comm_cbind_mod.f90
Unescape Escape View File

@ -6,7 +6,7 @@ module psb_z_comm_cbind_mod
contains
function psb_c_z_ovrl(xh,cdh) bind(c) result(res)
function psb_c_zovrl(xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -35,9 +35,9 @@ contains
res = info
end function psb_c_z_ovrl
end function psb_c_zovrl
function psb_c_z_ovrl_opt(xh,cdh,update,mode) bind(c) result(res)
function psb_c_zovrl_opt(xh,cdh,update,mode) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: update, mode
@ -67,10 +67,10 @@ contains
res = info
end function psb_c_z_ovrl_opt
end function psb_c_zovrl_opt
function psb_c_z_halo(xh,cdh) bind(c) result(res)
function psb_c_zhalo(xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -99,9 +99,9 @@ contains
res = info
end function psb_c_z_halo
end function psb_c_zhalo
function psb_c_z_halo_opt(xh,cdh,tran,data,mode) bind(c) result(res)
function psb_c_zhalo_opt(xh,cdh,tran,data,mode) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: data, mode
@ -135,10 +135,10 @@ contains
res = info
end function psb_c_z_halo_opt
end function psb_c_zhalo_opt
function psb_c_z_vscatter(ng,gx,xh,cdh) bind(c) result(res)
function psb_c_zvscatter(ng,gx,xh,cdh) bind(c) result(res)
implicit none
integer(psb_c_ipk_) :: res
@ -170,7 +170,7 @@ contains
call psb_scatter(pgx,vp,descp,info)
res = info
end function psb_c_z_vscatter
end function psb_c_zvscatter
function psb_c_zvgather(v,xh,cdh) bind(c) result(res)
implicit none

Write Preview
Loading…
Cancel
Save