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

Silly bug in implementation of psb_sum with --enable-integers

Browse Source
psblas3-final
Salvatore Filippone 12 years ago
parent 19a0e6e083
commit d6f5f5acd3
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

16
base/modules/psi_reduce_mod.F90
Unescape Escape View File

@ -3517,10 +3517,10 @@ contains
root_ = -1 root_ = -1
endif endif
if (root_ == -1) then if (root_ == -1) then
call mpi_allreduce(dat,dat_,1,psb_mpi_lng_integer,mpi_sum,ictxt,info) call mpi_allreduce(dat,dat_,1,psb_mpi_def_integer,mpi_sum,ictxt,info)
dat = dat_ dat = dat_
else else
call mpi_reduce(dat,dat_,1,psb_mpi_lng_integer,mpi_sum,root_,ictxt,info) call mpi_reduce(dat,dat_,1,psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
dat = dat_ dat = dat_
endif endif
@ -3557,15 +3557,15 @@ contains
call psb_realloc(size(dat),dat_,info) call psb_realloc(size(dat),dat_,info)
dat_=dat dat_=dat
if (iinfo == psb_success_) call mpi_allreduce(dat_,dat,size(dat),& if (iinfo == psb_success_) call mpi_allreduce(dat_,dat,size(dat),&
& psb_mpi_lng_integer,mpi_sum,ictxt,info) & psb_mpi_def_integer,mpi_sum,ictxt,info)
else else
if (iam == root_) then if (iam == root_) then
call psb_realloc(size(dat),dat_,info) call psb_realloc(size(dat),dat_,info)
dat_=dat dat_=dat
call mpi_reduce(dat_,dat,size(dat),psb_mpi_lng_integer,mpi_sum,root_,ictxt,info) call mpi_reduce(dat_,dat,size(dat),psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
else else
call psb_realloc(1,dat_,info) call psb_realloc(1,dat_,info)
call mpi_reduce(dat,dat_,size(dat),psb_mpi_lng_integer,mpi_sum,root_,ictxt,info) call mpi_reduce(dat,dat_,size(dat),psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
end if end if
endif endif
#endif #endif
@ -3601,15 +3601,15 @@ contains
call psb_realloc(size(dat,1),size(dat,2),dat_,info) call psb_realloc(size(dat,1),size(dat,2),dat_,info)
dat_=dat dat_=dat
if (iinfo == psb_success_) call mpi_allreduce(dat_,dat,size(dat),& if (iinfo == psb_success_) call mpi_allreduce(dat_,dat,size(dat),&
& psb_mpi_lng_integer,mpi_sum,ictxt,info) & psb_mpi_def_integer,mpi_sum,ictxt,info)
else else
if (iam == root_) then if (iam == root_) then
call psb_realloc(size(dat,1),size(dat,2),dat_,info) call psb_realloc(size(dat,1),size(dat,2),dat_,info)
dat_=dat dat_=dat
call mpi_reduce(dat_,dat,size(dat),psb_mpi_lng_integer,mpi_sum,root_,ictxt,info) call mpi_reduce(dat_,dat,size(dat),psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
else else
call psb_realloc(1,1,dat_,info) call psb_realloc(1,1,dat_,info)
call mpi_reduce(dat,dat_,size(dat),psb_mpi_lng_integer,mpi_sum,root_,ictxt,info) call mpi_reduce(dat,dat_,size(dat),psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
end if end if
endif endif
#endif #endif

Write Preview
Loading…
Cancel
Save