| 285 | } |
| 286 | |
| 287 | size_t |
| 288 | Message::count () const |
| 289 | { |
| 290 | if ( m_type == MPI_DATATYPE_NULL ) { amrex::Error("Message::count: Bad Type!"); } |
| 291 | if ( !m_finished ) { amrex::Error("Message::count: Not Finished!"); } |
| 292 | int cnt; |
| 293 | BL_MPI_REQUIRE( MPI_Get_count(&m_stat, m_type, &cnt) ); |
| 294 | return cnt; |
| 295 | } |
| 296 | |
| 297 | void |
| 298 | StartParallel (int* argc, char*** argv, MPI_Comm a_mpi_comm) |