Commits
Takahiro Tsutsumi authored b14c9e67d73 Merge
479 479 | setSourceAndTag(getFrom, myOp); |
480 480 | // Get the length of the string |
481 481 | uInt i; |
482 482 | MPI_Recv(&i, 1, MPI_UNSIGNED, getFrom, myOp, MPI_COMM_WORLD, &status); |
483 483 | // Send the characters |
484 484 | Char *theChars = new Char[i+1]; |
485 485 | MPI_Recv(theChars, i, MPI_CHAR, getFrom, myOp, MPI_COMM_WORLD, &status); |
486 486 | |
487 487 | *(theChars+i) = 0; |
488 488 | s = theChars; |
489 - | delete theChars; |
489 + | delete [] theChars; |
490 490 | return(status.MPI_SOURCE); |
491 491 | } |
492 492 | |
493 493 | void MPITransport::setSourceAndTag(Int &source, Int &tag) |
494 494 | { |
495 495 | // Set source and tag for MPI_Recv commands |
496 496 | // |
497 497 | // Message tag |
498 498 | tag = aTag; |
499 499 | |