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

Fix type handling bug in simple_triad.

Browse Source
mat-allocate V3.6.1-3
Salvatore Filippone 5 years ago
parent db17057924
commit c6dbee552e
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File

2
base/modules/penv/psi_c_collective_mod.F90
Unescape Escape View File

@ -1048,7 +1048,7 @@ contains
idx = bsdindx(ip+1) idx = bsdindx(ip+1)
p2ptag = psb_complex_tag p2ptag = psb_complex_tag
call mpi_send(valsnd(idx+1:idx+sz),sz,& call mpi_send(valsnd(idx+1:idx+sz),sz,&
& psb_mpi_r_dpk_,prcid(ip+1),& & psb_mpi_c_spk_,prcid(ip+1),&
& p2ptag, icomm,iret) & p2ptag, icomm,iret)
p2ptag = psb_int_swap_tag p2ptag = psb_int_swap_tag
call mpi_send(iasnd(idx+1:idx+sz),sz,& call mpi_send(iasnd(idx+1:idx+sz),sz,&

2
base/modules/penv/psi_e_collective_mod.F90
Unescape Escape View File

@ -1416,7 +1416,7 @@ contains
idx = bsdindx(ip+1) idx = bsdindx(ip+1)
p2ptag = psb_int8_tag p2ptag = psb_int8_tag
call mpi_send(valsnd(idx+1:idx+sz),sz,& call mpi_send(valsnd(idx+1:idx+sz),sz,&
& psb_mpi_r_dpk_,prcid(ip+1),& & psb_mpi_epk_,prcid(ip+1),&
& p2ptag, icomm,iret) & p2ptag, icomm,iret)
p2ptag = psb_int_swap_tag p2ptag = psb_int_swap_tag
call mpi_send(iasnd(idx+1:idx+sz),sz,& call mpi_send(iasnd(idx+1:idx+sz),sz,&

2
base/modules/penv/psi_i2_collective_mod.F90
Unescape Escape View File

@ -1416,7 +1416,7 @@ contains
idx = bsdindx(ip+1) idx = bsdindx(ip+1)
p2ptag = psb_int2_tag p2ptag = psb_int2_tag
call mpi_send(valsnd(idx+1:idx+sz),sz,& call mpi_send(valsnd(idx+1:idx+sz),sz,&
& psb_mpi_r_dpk_,prcid(ip+1),& & psb_mpi_i2pk_,prcid(ip+1),&
& p2ptag, icomm,iret) & p2ptag, icomm,iret)
p2ptag = psb_int_swap_tag p2ptag = psb_int_swap_tag
call mpi_send(iasnd(idx+1:idx+sz),sz,& call mpi_send(iasnd(idx+1:idx+sz),sz,&

2
base/modules/penv/psi_m_collective_mod.F90
Unescape Escape View File

@ -1416,7 +1416,7 @@ contains
idx = bsdindx(ip+1) idx = bsdindx(ip+1)
p2ptag = psb_int4_tag p2ptag = psb_int4_tag
call mpi_send(valsnd(idx+1:idx+sz),sz,& call mpi_send(valsnd(idx+1:idx+sz),sz,&
& psb_mpi_r_dpk_,prcid(ip+1),& & psb_mpi_mpk_,prcid(ip+1),&
& p2ptag, icomm,iret) & p2ptag, icomm,iret)
p2ptag = psb_int_swap_tag p2ptag = psb_int_swap_tag
call mpi_send(iasnd(idx+1:idx+sz),sz,& call mpi_send(iasnd(idx+1:idx+sz),sz,&

2
base/modules/penv/psi_s_collective_mod.F90
Unescape Escape View File

@ -1539,7 +1539,7 @@ contains
idx = bsdindx(ip+1) idx = bsdindx(ip+1)
p2ptag = psb_real_tag p2ptag = psb_real_tag
call mpi_send(valsnd(idx+1:idx+sz),sz,& call mpi_send(valsnd(idx+1:idx+sz),sz,&
& psb_mpi_r_dpk_,prcid(ip+1),& & psb_mpi_r_spk_,prcid(ip+1),&
& p2ptag, icomm,iret) & p2ptag, icomm,iret)
p2ptag = psb_int_swap_tag p2ptag = psb_int_swap_tag
call mpi_send(iasnd(idx+1:idx+sz),sz,& call mpi_send(iasnd(idx+1:idx+sz),sz,&

2
base/modules/penv/psi_z_collective_mod.F90
Unescape Escape View File

@ -1048,7 +1048,7 @@ contains
idx = bsdindx(ip+1) idx = bsdindx(ip+1)
p2ptag = psb_dcomplex_tag p2ptag = psb_dcomplex_tag
call mpi_send(valsnd(idx+1:idx+sz),sz,& call mpi_send(valsnd(idx+1:idx+sz),sz,&
& psb_mpi_r_dpk_,prcid(ip+1),& & psb_mpi_c_dpk_,prcid(ip+1),&
& p2ptag, icomm,iret) & p2ptag, icomm,iret)
p2ptag = psb_int_swap_tag p2ptag = psb_int_swap_tag
call mpi_send(iasnd(idx+1:idx+sz),sz,& call mpi_send(iasnd(idx+1:idx+sz),sz,&

Write Preview
Loading…
Cancel
Save