make certain that allocated buffers in Comm::rendezvous_all2all() are not NULL (a4de04d8) · Commits · 郑智淋 / lammps

src/comm.cpp

+4 −4

Original line number	Diff line number	Diff line
		@@ -977,7 +977,7 @@ rendezvous_all2all(int n, char inbuf, int insize, int inorder, int procs,
		memory->create(procs_a2a,nprocs,"rendezvous:procs");
		inbuf_a2a = (char ) memory->smalloc((bigint) ninsize,
		"rendezvous:inbuf");
		memset(inbuf_a2a,0,(bigint)ninsizesizeof(char));
		memset(inbuf_a2a,0,(bigint)(n+1)insizesizeof(char));
		memory->create(offsets,nprocs,"rendezvous:offsets");

		for (int i = 0; i < nprocs; i++) procs_a2a[i] = 0;
		@@ -1039,7 +1039,7 @@ rendezvous_all2all(int n, char inbuf, int insize, int inorder, int procs,

		// all2all comm of inbuf from caller decomp to rendezvous decomp

		char inbuf_rvous = (char ) memory->smalloc((bigint) nrvous*insize,
		char inbuf_rvous = (char ) memory->smalloc((bigint) (nrvous+1)*insize,
		"rendezvous:inbuf");
		memset(inbuf_rvous,0,(bigint) nrvousinsizesizeof(char));

		@@ -1079,7 +1079,7 @@ rendezvous_all2all(int n, char inbuf, int insize, int inorder, int procs,
		if (!outorder) {
		memory->create(procs_a2a,nprocs,"rendezvous_a2a:procs");

		outbuf_a2a = (char ) memory->smalloc((bigint) nrvous_outoutsize,
		outbuf_a2a = (char ) memory->smalloc((bigint) (nrvous_out+1)outsize,
		"rendezvous:outbuf");
		memory->create(offsets,nprocs,"rendezvous:offsets");

		@@ -1139,7 +1139,7 @@ rendezvous_all2all(int n, char inbuf, int insize, int inorder, int procs,
		// all2all comm of outbuf from rendezvous decomp back to caller decomp
		// caller will free outbuf

		outbuf = (char ) memory->smalloc((bigint) noutoutsize,"rendezvous:outbuf");
		outbuf = (char ) memory->smalloc((bigint)(nout+1)outsize,"rendezvous:outbuf");

		MPI_Alltoallv(outbuf_a2a,sendcount,sdispls,MPI_CHAR,
		outbuf,recvcount,rdispls,MPI_CHAR,world);

Admin message