scnc
/
qmcpack
mirror of https://github.com/QMCPACK/qmcpack.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix the building with -D_CRAYMPI on Titan. 

_CRAYMPI flag was used on the Titan toolchains in the attic folder but not in the most recent build script.
No clue if someone checked whether this flag is needed or not. The titan weekly tests shows OK without this flag.
Anyway, fix the broken code path since the AFQMC merge.
This commit is contained in:
Ye Luo 2017-01-18 16:04:43 -05:00
parent 062ff7c1be
commit 3dede6f567
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Message/CommOperatorsMPI.h
View File

@ -1025,7 +1025,7 @@ Communicate::gatherv(char* l, char* g, int n,
{
#if defined(_CRAYMPI)
const int cray_short_msg_size=128000;
if(l.size()*sizeof(char)<cray_short_msg_size)
if(n*sizeof(char)<cray_short_msg_size)
this->barrier();
#endif
int ierr = MPI_Gatherv(l, n, MPI_CHAR,
@ -1214,7 +1214,7 @@ Communicate::scatterv(char* sb, char* rb, int n,
{
#if defined(_CRAYMPI)
const int cray_short_msg_size=128000;
if(l.size()*sizeof(char)<cray_short_msg_size)
if(n*sizeof(char)<cray_short_msg_size)
this->barrier();
#endif
int ierr = MPI_Scatterv(sb, &counts[0], &displ[0], MPI_CHAR,
@ -1228,7 +1228,7 @@ Communicate::scatterv(std::vector<char>& sb, std::vector<char>& rb,
{
#if defined(_CRAYMPI)
const int cray_short_msg_size=128000;
if(l.size()*sizeof(char)<cray_short_msg_size)
if(rb.size()*sizeof(char)<cray_short_msg_size)
this->barrier();
#endif
int ierr = MPI_Scatterv(&sb[0], &counts[0], &displ[0], MPI_CHAR,
@ -1242,7 +1242,7 @@ Communicate::gatherv(char* l, char* g, int n,
{
#if defined(_CRAYMPI)
const int cray_short_msg_size=128000;
if(l.size()*sizeof(char)<cray_short_msg_size)
if(n*sizeof(char)<cray_short_msg_size)
this->barrier();
#endif
int ierr = MPI_Gatherv(l, n, MPI_CHAR,