Jonathan R. Madsen
46b6db1a4c
* Submitting jobs to cdash * Fail on submit * submit url env * submit url env * try passing submit url as arg * fix submit url * Updated default URL * Add submissions for remaining ubuntu focal workflow jobs * Replace g++ with gcc in dashboard build name * Add --ctest-args to run-ci.sh * Add cdash support for bionic, jammy, and opensuse workflows * Decrease CTEST_CUSTOM_MAXIMUM_PASSED_TEST_OUTPUT_SIZE * OMNITRACE_BUILD_CODECOV option * Support code coverage in CDash script * CI dyninst built with debug info * Update ci-containers - cron schedule moved 4 hours later to UTC+5 * Update implementation of config::configure_signal_handler - using lambdas failed to compile with codecov flags * Add codecov job to ubuntu focal workflow * Fix support for --ctest-args in run-ci script * Fix ubuntu workflows * Fix quotation handling in run-ci script * git safe directory for codecov * New MPI examples * Remove --stop-on-failure * dynamic_library update - find_library_path checks procfs maps - invoke find_library_path with no additional args to resolve to mapped file * RCCLP uses dynamic_library * check if file exists for memory_map_files metadata * Testing updates - include new mpi examples in tests - fix test labels - test critical-trace exe * Update MPI C examples tests (needed arg) * Remove try/catch block from critical-trace * Fix sampling max wait when shutting down * Fix test env for critical-trace * Fix settings for critical-trace - disable time output: data is deterministic - disable PID suffixes: not multiprocess * Update critical-trace ctest * Update critical-trace exe - throw error if input cannot be opened - throw error if input has no data * Update lulesh example with more kokkos tools usage * Fix tasking issue with critical_trace and roctracer - were not setting pools to active - also sync before critical_trace::get_entries * Increase verbosity of critical-trace tests * Update code coverage tests - skip code coverage + preload - code-coverage python example and test * Remove duplication omnitrace.initialize function * Skip python3.6 for ubuntu jammy * Update MPI examples - use MPI_Isend and MPI_Irecv - explicitly use MPI_Bcast * Update Formatting.cmake - include C files in examples * run-ci script does not check return of coverage * mpi-allreduce link to libm * Update ctest args in run-ci script * Update dyninst submodule - safety improvements in BinaryEdit::openResolvedLibraryName * capture cmake error for ctest_coverage
56 γραμμές
1.8 KiB
C
56 γραμμές
1.8 KiB
C
// Author: Wes Kendall
|
|
// Copyright 2011 www.mpitutorial.com
|
|
// This code is provided freely with the tutorials on mpitutorial.com. Feel
|
|
// free to modify it for your own use. Any distribution of the code must
|
|
// either provide a link to www.mpitutorial.com or keep this header intact.
|
|
//
|
|
// Ping pong example with MPI_Send and MPI_Recv. Two processes ping pong a
|
|
// number back and forth, incrementing it until it reaches a given value.
|
|
//
|
|
#include <mpi.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
int
|
|
main(int argc, char** argv)
|
|
{
|
|
const int PING_PONG_LIMIT = 10;
|
|
|
|
// Initialize the MPI environment
|
|
MPI_Init(NULL, NULL);
|
|
// Find out rank, size
|
|
int world_rank;
|
|
MPI_Comm_rank(MPI_COMM_WORLD, &world_rank);
|
|
int world_size;
|
|
MPI_Comm_size(MPI_COMM_WORLD, &world_size);
|
|
|
|
// We are assuming 2 processes for this task
|
|
if(world_size != 2)
|
|
{
|
|
fprintf(stderr, "World size must be two for %s\n", argv[0]);
|
|
MPI_Abort(MPI_COMM_WORLD, 1);
|
|
}
|
|
|
|
int ping_pong_count = 0;
|
|
int partner_rank = (world_rank + 1) % 2;
|
|
while(ping_pong_count < PING_PONG_LIMIT)
|
|
{
|
|
if(world_rank == ping_pong_count % 2)
|
|
{
|
|
// Increment the ping pong count before you send it
|
|
ping_pong_count++;
|
|
MPI_Send(&ping_pong_count, 1, MPI_INT, partner_rank, 0, MPI_COMM_WORLD);
|
|
printf("%d sent and incremented ping_pong_count %d to %d\n", world_rank,
|
|
ping_pong_count, partner_rank);
|
|
}
|
|
else
|
|
{
|
|
MPI_Recv(&ping_pong_count, 1, MPI_INT, partner_rank, 0, MPI_COMM_WORLD,
|
|
MPI_STATUS_IGNORE);
|
|
printf("%d received ping_pong_count %d from %d\n", world_rank,
|
|
ping_pong_count, partner_rank);
|
|
}
|
|
}
|
|
MPI_Finalize();
|
|
}
|