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

psblas3-mcbind:

Browse Source 
cbind/base/psb_base_cbind_mod.f90
 cbind/base/psb_c_comm_cbind_mod.f90
 cbind/base/psb_d_comm_cbind_mod.f90
 cbind/base/psb_s_comm_cbind_mod.f90
 cbind/base/psb_z_comm_cbind_mod.f90

Fix COMM module.
This commit is contained in:
Salvatore Filippone
2017-04-28 15:19:29 +00:00
parent 4ad85e75ab
commit 456f810c2f
5 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_base_cbind_mod.f90
+3
View File
@@ -6,6 +6,9 @@ module psb_base_cbind_mod
use psb_d_tools_cbind_mod
use psb_c_tools_cbind_mod
use psb_z_tools_cbind_mod
use psb_s_comm_cbind_mod
use psb_d_comm_cbind_mod
use psb_c_comm_cbind_mod
use psb_z_comm_cbind_mod
use psb_base_psblas_cbind_mod
end module psb_base_cbind_mod
cbind/base/psb_c_comm_cbind_mod.f90
+3 -3
View File
@@ -113,7 +113,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_c_vect_type), pointer :: xp
character :: ftrans
character :: ftran
integer :: info
@@ -130,8 +130,8 @@ contains
return
end if
ftrans = trans
call psb_halo(xp,descp,info,data=data,mode=mode,tran=tran)
ftran = tran
call psb_halo(xp,descp,info,data=data,mode=mode,tran=ftran)
res = info
cbind/base/psb_d_comm_cbind_mod.f90
+3 -3
View File
@@ -113,7 +113,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_d_vect_type), pointer :: xp
character :: ftrans
character :: ftran
integer :: info
@@ -130,8 +130,8 @@ contains
return
end if
ftrans = trans
call psb_halo(xp,descp,info,data=data,mode=mode,tran=tran)
ftran = tran
call psb_halo(xp,descp,info,data=data,mode=mode,tran=ftran)
res = info
cbind/base/psb_s_comm_cbind_mod.f90
+3 -3
View File
@@ -113,7 +113,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_s_vect_type), pointer :: xp
character :: ftrans
character :: ftran
integer :: info
@@ -130,8 +130,8 @@ contains
return
end if
ftrans = trans
call psb_halo(xp,descp,info,data=data,mode=mode,tran=tran)
ftran = tran
call psb_halo(xp,descp,info,data=data,mode=mode,tran=ftran)
res = info
cbind/base/psb_z_comm_cbind_mod.f90
+3 -3
View File
@@ -113,7 +113,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_z_vect_type), pointer :: xp
character :: ftrans
character :: ftran
integer :: info
@@ -130,8 +130,8 @@ contains
return
end if
ftrans = trans
call psb_halo(xp,descp,info,data=data,mode=mode,tran=tran)
ftran = tran
call psb_halo(xp,descp,info,data=data,mode=mode,tran=ftran)
res = info