}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
// sleep (30);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
// sleep (60);
}
else if (rank == 2)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
// sleep (30);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
// sleep (60);
}
else if (rank == 2)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
//sleep (30);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
//sleep (60);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
// sleep (60);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
//sleep (60);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 2)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
// sleep (30);
}
else if (rank == 2)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
// sleep (30);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
// sleep (30);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 2)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
// sleep (30);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 2)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 2)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
// sleep (30);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 2)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
// sleep (30);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
- memset (buf1, 1, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Irecv (buf0, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
{
MPI_Recv (buf0, buf_size, MPI_INT, 0, 2, MPI_COMM_WORLD, statuses);
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 0, 1, MPI_COMM_WORLD, &status);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
if (dnprocs > 1) {
if (drank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, comm, &status);
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm);
}
else if (drank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm, &status);
if (dnprocs > 1) {
if (drank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, comm, &status);
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm);
}
else if (drank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm, &status);
if (dnprocs > 1) {
if (drank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, comm, &status);
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm);
}
else if (drank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm, &status);
MPI_Comm_dup (MPI_COMM_WORLD, &comm);
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, comm, &status);
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm, &status);
if (dnprocs > 1) {
if (drank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, comm, &status);
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm);
}
else if (drank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm, &status);
if (dnprocs > 1) {
if (drank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, comm, &status);
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm);
}
else if (drank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm, &status);
if (rnprocs > drank) {
if (rank % 2) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, drank, 0, intercomm, &status);
MPI_Send (buf1, buf_size, MPI_INT, drank, 0, intercomm);
}
else {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, drank, 0, intercomm, &status);
if (dnprocs > 1) {
if (drank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, comm, &status);
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm);
}
else if (drank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm, &status);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &status);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &status);
fflush (stdout);
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Bcast (buf0, buf_size, MPI_INT, 1, MPI_COMM_WORLD);
MPI_Bcast (buf0, buf_size, MPI_INT, 0, MPI_COMM_WORLD);
}
else {
if (rank == 1)
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Bcast (buf0, buf_size, MPI_INT, 0, MPI_COMM_WORLD);
MPI_Bcast (buf0, buf_size, MPI_INT, 1, MPI_COMM_WORLD);
printf ("(%d) is alive on %s\n", rank, processor_name);
fflush (stdout);
- memset (sbuf, 0, buf_size);
- memset (rbuf, 1, buf_size);
+ memset (sbuf, 0, buf_size*sizeof(int));
+ memset (rbuf, 1, buf_size*sizeof(int));
MPI_Barrier (comm);
printf ("(%d) is alive on %s\n", rank, processor_name);
fflush (stdout);
- memset (buf0, 0, buf_size);
- memset (buf1, 1, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Barrier (comm);
MPI_Barrier (comm);
printf ("(%d) is alive on %s\n", rank, processor_name);
fflush (stdout);
- memset (buf0, 0, buf_size);
- memset (buf1, 1, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Barrier (comm);
MPI_Barrier (comm);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
zero_to_two = 1;
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &status);
else if ((rank == 1) && (its_raining))
{
/* This code is never executed... */
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
if (tnprocs > 1) {
if (trank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, temp);
}
if (rnprocs > drank) {
if (rank % 2) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, drank, 0, intercomm, &status);
MPI_Send (buf1, buf_size, MPI_INT, drank, 0, intercomm);
}
else {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, drank, 0, intercomm);
INTERCOMM_CREATE_TAG, &intercomm);
if ((trank == 0) && !(rank % 2)) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, temp);
}
if (rnprocs > drank) {
if (rank % 2) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, drank, 0, intercomm, &status);
MPI_Send (buf1, buf_size, MPI_INT, drank, 0, intercomm);
}
else {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, drank, 0, intercomm);
INTERCOMM_CREATE_TAG, &intercomm);
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD);
}
if (rnprocs > drank) {
if (rank % 2) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, drank, 0, intercomm, &status);
MPI_Send (buf1, buf_size, MPI_INT, drank, 0, intercomm);
}
else {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, drank, 0, intercomm);
INTERCOMM_CREATE_TAG, &intercomm);
if (rank == 2) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, rleader, 0, MPI_COMM_WORLD);
}
else if (rank == 1) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
if (rnprocs > drank) {
if (rank % 2) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, drank, 0, intercomm, &status);
MPI_Send (buf1, buf_size, MPI_INT, drank, 0, intercomm);
}
else {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, drank, 0, intercomm);
if (dnprocs > 1) {
if (drank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm, &status);
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, comm);
}
else if (drank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm);
if (dnprocs > 1) {
if (drank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, comm2, &status);
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, comm2);
}
else if (drank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, comm2);
{
int dest = (rank == nprocs - 1) ? (0) : (rank + 1);
int src = (rank == 0) ? (nprocs - 1) : (rank - 1);
- memset (buf0, rank, buf_size);
+ memset (buf0, rank, buf_size*sizeof(int));
MPI_Irecv (buf0, buf_size, MPI_INT, src, 0, MPI_COMM_WORLD, &req);
MPI_Wait(&req,&status);
MPI_Send (buf0, buf_size, MPI_INT, dest, 0, MPI_COMM_WORLD);
{
int dest = (rank == nprocs - 1) ? (0) : (rank + 1);
int src = (rank == 0) ? (nprocs - 1) : (rank - 1);
- memset (buf0, rank, buf_size);
- memset (buf1, rank, buf_size);
+ memset (buf0, rank, buf_size*sizeof(int));
+ memset (buf1, rank, buf_size*sizeof(int));
MPI_Irecv (buf0, buf_size, MPI_INT, src, 0, MPI_COMM_WORLD, &req1);
MPI_Isend (buf1, buf_size, MPI_INT, dest, 0, MPI_COMM_WORLD, &req2);
MPI_Wait(&req2,&status);
{
int dest = (rank == nprocs - 1) ? (0) : (rank + 1);
int src = (rank == 0) ? (nprocs - 1) : (rank - 1);
- memset (buf0, rank, buf_size);
- memset (buf1, rank, buf_size);
+ memset (buf0, rank, buf_size*sizeof(int));
+ memset (buf1, rank, buf_size*sizeof(int));
for (i = 0; i < req_count; i++) {
MPI_Irecv (buf0, buf_size, MPI_INT, src, 0, MPI_COMM_WORLD, &req1);
printf ("(%d) is alive on %s\n", rank, processor_name);
fflush (stdout);
- memset (buf0, 0, buf_size);
- memset (buf1, 1, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
+ memset (buf1, 1, buf_size*sizeof(int));
/* 0 sends 1 two messages, but the request gets overwritten */
switch (rank)
printf ("(%d) is alive on %s\n", rank, processor_name);
fflush (stdout);
- memset (buf0, 1, buf_size);
- memset (buf1, 2, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
+ memset (buf1, 2, buf_size*sizeof(int));
MPI_Barrier(MPI_COMM_WORLD);
{
case 0:
for (i = 0; i < ITERATIONS; i++) {
- memset (buf, 1, buf_size * REQS_PER_ITERATION);
+ memset (buf, 1, buf_size*sizeof(int) * REQS_PER_ITERATION);
for (j = 0; j < REQS_PER_ITERATION; j++) {
MPI_Isend (&buf[j*buf_size], buf_size, MPI_INT,
case 1:
for (i = 0; i < ITERATIONS; i++) {
- memset (buf, 2, buf_size * REQS_PER_ITERATION);
+ memset (buf, 2, buf_size*sizeof(int) * REQS_PER_ITERATION);
for (j = 0; j < REQS_PER_ITERATION; j++) {
MPI_Irecv (&buf[j*buf_size], buf_size, MPI_INT,
}
}
else {
- memset (buf, 1, buf_size);
+ memset (buf, 1, buf_size*sizeof(int));
MPI_Send (buf, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
}
else {
- memset (buf, 1, buf_size);
+ memset (buf, 1, buf_size*sizeof(int));
MPI_Send (buf, buf_size, MPI_INT, 0, 0, dcomms[i]);
}
}
else if ((rank % 3) == 2) {
for (j = 0; j < intersize; j++) {
- memset (buf, 1, buf_size);
+ memset (buf, 1, buf_size*sizeof(int));
MPI_Send (buf, buf_size, MPI_INT, j, 0, intercomm);
}
}
}
else {
- memset (buf, 1, buf_size);
+ memset (buf, 1, buf_size*sizeof(int));
MPI_Send (buf, buf_size, MPI_INT, 0, 0, dcomms[i]);
}
}
else if ((rank % 3) == 2) {
for (j = 0; j < intersize; j++) {
- memset (buf, 1, buf_size);
+ memset (buf, 1, buf_size*sizeof(int));
MPI_Send (buf, buf_size, MPI_INT, j, 0, intercomm);
}
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Irecv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
}
else if (rank == 1)
{
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
for (i = 3; i > 0; i--) {
MPI_Recv (&flipbit, 1, MPI_INT, 0, i, MPI_COMM_WORLD, &status);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Irecv (buf0, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
- memset (buf1, 1, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Irecv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Irecv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
}
else if (rank == 1)
{
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
for (i = 3; i > 0; i--) {
MPI_Recv (&flipbit, 1, MPI_INT,
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
{
MPI_Recv (buf0, buf_size, MPI_INT, 0, 2, MPI_COMM_WORLD, &status);
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
}
else if (rank == 1)
{
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
for (i = 3; i > 0; i--) {
MPI_Recv (&flipbit, 1, MPI_INT, 0, i, MPI_COMM_WORLD, &status);
}
else if (rank == 1)
{
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
for (i = 3; i >= 0; i--) {
MPI_Recv (&flipbit, 1, MPI_INT, 0, i, MPI_COMM_WORLD, &status);
{
if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Sendrecv (buf0, buf_size, MPI_INT, 1, 0,
buf1, buf_size, MPI_INT, 1, 0,
{
if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Sendrecv (buf1, buf_size, MPI_INT, 0, 0,
buf0, buf_size, MPI_INT, 0, 0,
src = (rank + 1) % nprocs;
dest = (rank - 1 + nprocs) % nprocs;
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Sendrecv (buf0, buf_size, MPI_INT, dest, 0,
buf1, buf_size, MPI_INT, src, 0, MPI_COMM_WORLD, &status);
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Sendrecv (buf1, buf_size, MPI_INT, src, 0,
buf0, buf_size, MPI_INT, dest, 0, MPI_COMM_WORLD, &status);
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Sendrecv (buf0, buf_size, MPI_INT, dest, 0,
buf1, buf_size, MPI_INT, src, 0, MPI_COMM_WORLD, &status);
}
else {
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Sendrecv (buf0, buf_size, MPI_INT, 1, 0,
buf1, buf_size, MPI_INT, MPI_ANY_SOURCE, 0,
MPI_COMM_WORLD, &status);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &status);
}
else {
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Sendrecv (buf0, buf_size, MPI_INT, 1, 0,
buf1, buf_size, MPI_INT, 1, 0,
MPI_COMM_WORLD, &status);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &status);
}
else {
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send_init (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Recv_init (buf1, buf_size, MPI_INT,
MPI_Waitall (2, aReq, aStatus);
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
MPI_Startall (2, aReq);
MPI_Waitall (2, aReq, aStatus);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv_init (buf0, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf1, 0, buf_size);
+ memset (buf1, 0, buf_size*sizeof(int));
MPI_Startall (2, aReq);
MPI_Waitall (2, aReq, aStatus);
}
else {
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send_init (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Recv_init (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
MPI_Startall (2, aReq);
MPI_Waitall (2, aReq, aStatus);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv_init (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Send_init (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf1, 0, buf_size);
+ memset (buf1, 0, buf_size*sizeof(int));
MPI_Startall (2, aReq);
}
else {
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send_init (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Recv_init (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
MPI_Startall (2, aReq);
MPI_Waitall (2, aReq, aStatus);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv_init (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Send_init (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf1, 0, buf_size);
+ memset (buf1, 0, buf_size*sizeof(int));
MPI_Startall (2, aReq);
}
else {
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send_init (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Recv_init (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
MPI_Startall (2, aReq);
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
/* activate a request twice */
MPI_Start (&aReq[0]);
MPI_Waitall (2, aReq, aStatus);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv_init (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Send_init (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf1, 0, buf_size);
+ memset (buf1, 0, buf_size*sizeof(int));
MPI_Startall (2, aReq);
}
else {
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send_init (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Recv_init (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
MPI_Startall (2, aReq);
MPI_Waitall (2, aReq, aStatus);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv_init (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Send_init (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf1, 0, buf_size);
+ memset (buf1, 0, buf_size*sizeof(int));
MPI_Startall (2, aReq);
}
else {
if (rank == 0) {
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send_init (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Recv_init (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
MPI_Startall (2, aReq);
MPI_Waitall (2, aReq, aStatus);
}
else if (rank == 1) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv_init (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[0]);
MPI_Send_init (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &aReq[1]);
MPI_Waitall (2, aReq, aStatus);
- memset (buf1, 0, buf_size);
+ memset (buf1, 0, buf_size*sizeof(int));
MPI_Startall (2, aReq);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD);
MPI_Recv (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &status);
}
else if (rank == 1)
{
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &status);
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
{
if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Sendrecv (buf0, buf_size, MPI_INT, 1, 0,
buf1, buf_size, MPI_INT, 1, 0,
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &status);
}
else if (rank == 2)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
else if (rank == 0)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Irecv (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Irecv (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &req);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
}
else if (rank == 1)
{
- memset (buf0, 1, buf_size);
+ memset (buf0, 1, buf_size*sizeof(int));
for (i = 3; i > 0; i--) {
MPI_Recv (&flipbit, 1, MPI_INT, 0, i, MPI_COMM_WORLD, &status);