425 |
// broadcasting the data via a tree structure, this should not create too much overhead. |
// broadcasting the data via a tree structure, this should not create too much overhead. |
426 |
for(int j = 0; j<nhost; j++) |
for(int j = 0; j<nhost; j++) |
427 |
{ |
{ |
428 |
MPI_Send(stringValue[i],strlen(stringValue[i])+1, MPI_CHAR, j, pvmConst->getMasterSendStringTag(), intercomm); |
MPI_Send(stringValue[i],strlen(stringValue[i])+1, MPI_BYTE, j, pvmConst->getMasterSendStringTag(), intercomm); |
429 |
} |
} |
430 |
}; |
}; |
431 |
assert(sendP.Size() >= numVar); |
assert(sendP.Size() >= numVar); |
462 |
// This could be causing some overhead, could consider packing it in a buffer |
// This could be causing some overhead, could consider packing it in a buffer |
463 |
// before I send it, like the old pvm version, let's see if this works ok. |
// before I send it, like the old pvm version, let's see if this works ok. |
464 |
// I think this function is only called once. |
// I think this function is only called once. |
465 |
MPI_Send(stringValue[i],strlen(stringValue[i])+1, MPI_CHAR,tids[processID],pvmConst->getMasterSendStringTag(),intercomm); |
MPI_Send(stringValue[i],strlen(stringValue[i])+1, MPI_BYTE,tids[processID],pvmConst->getMasterSendStringTag(),intercomm); |
466 |
}; |
}; |
467 |
assert(sendP.Size() >= numVar); |
assert(sendP.Size() >= numVar); |
468 |
|
|