fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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.
psblas3-mcbind
Salvatore Filippone 8 years ago
parent 4ad85e75ab
commit 456f810c2f
5 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File

3
cbind/base/psb_base_cbind_mod.f90
Unescape Escape 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

6
cbind/base/psb_c_comm_cbind_mod.f90
Unescape Escape 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

6
cbind/base/psb_d_comm_cbind_mod.f90
Unescape Escape 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

6
cbind/base/psb_s_comm_cbind_mod.f90
Unescape Escape 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

6
cbind/base/psb_z_comm_cbind_mod.f90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save