78 |
|
double atomOrientData[7]; |
79 |
|
int isDirectional; |
80 |
|
char* atomTypeString; |
81 |
+ |
char MPIatomTypeString[MINIBUFFERSIZE]; |
82 |
|
int me; |
83 |
|
int atomTypeTag; |
84 |
|
int atomIsDirectionalTag; |
200 |
|
atomTransDataTag = 4*i + 2; |
201 |
|
atomOrientDataTag = 4*i + 3; |
202 |
|
|
203 |
< |
MPI_Recv(atomTypeString, MINIBUFFERSIZE, MPI_CHAR, which_node, |
203 |
> |
MPI_Recv(MPIatomTypeString, MINIBUFFERSIZE, MPI_CHAR, which_node, |
204 |
|
atomTypeTag, MPI_COMM_WORLD, &istatus); |
205 |
|
|
206 |
+ |
strncpy(atomTypeString, MPIatomTypeString, MINIBUFFERSIZE); |
207 |
+ |
|
208 |
|
MPI_Recv(&isDirectional, 1, MPI_INT, which_node, |
209 |
|
atomIsDirectionalTag, MPI_COMM_WORLD, &istatus); |
210 |
|
|
376 |
|
atomTransDataTag = 4*i + 2; |
377 |
|
atomOrientDataTag = 4*i + 3; |
378 |
|
|
379 |
< |
MPI_Send(atomTypeString, MINIBUFFERSIZE, MPI_CHAR, 0, |
379 |
> |
|
380 |
> |
strncpy(MPIatomTypeString, atomTypeString, MINIBUFFERSIZE); |
381 |
> |
|
382 |
> |
MPI_Send(MPIatomTypeString, MINIBUFFERSIZE, MPI_CHAR, 0, |
383 |
|
atomTypeTag, MPI_COMM_WORLD); |
384 |
|
|
385 |
|
MPI_Send(&isDirectional, 1, MPI_INT, 0, |
429 |
|
double atomOrientData[7]; |
430 |
|
int isDirectional; |
431 |
|
char* atomTypeString; |
432 |
+ |
char MPIatomTypeString[MINIBUFFERSIZE]; |
433 |
|
int atomTypeTag; |
434 |
|
int atomIsDirectionalTag; |
435 |
|
int atomTransDataTag; |
571 |
|
atomTransDataTag = 4*i + 2; |
572 |
|
atomOrientDataTag = 4*i + 3; |
573 |
|
|
574 |
< |
MPI_Recv(atomTypeString, MINIBUFFERSIZE, MPI_CHAR, which_node, |
574 |
> |
MPI_Recv(MPIatomTypeString, MINIBUFFERSIZE, MPI_CHAR, which_node, |
575 |
|
atomTypeTag, MPI_COMM_WORLD, &istatus); |
576 |
|
|
577 |
+ |
strncpy(atomTypeString, MPIatomTypeString, MINIBUFFERSIZE); |
578 |
+ |
|
579 |
|
MPI_Recv(&isDirectional, 1, MPI_INT, which_node, |
580 |
|
atomIsDirectionalTag, MPI_COMM_WORLD, &istatus); |
581 |
|
|
747 |
|
atomTransDataTag = 4*i + 2; |
748 |
|
atomOrientDataTag = 4*i + 3; |
749 |
|
|
750 |
< |
MPI_Send(atomTypeString, MINIBUFFERSIZE, MPI_CHAR, 0, |
750 |
> |
strncpy(MPIatomTypeString, atomTypeString, MINIBUFFERSIZE); |
751 |
> |
|
752 |
> |
MPI_Send(MPIatomTypeString, MINIBUFFERSIZE, MPI_CHAR, 0, |
753 |
|
atomTypeTag, MPI_COMM_WORLD); |
754 |
|
|
755 |
|
MPI_Send(&isDirectional, 1, MPI_INT, 0, |