nrnmpi_dynam_stubs.cpp

Go to the documentation of this file.

/* a few calls to nrnmpi functions are made even when MPI not available */
/* these need enough implementation to work with nrnmpi_numprocs = 1 */
 
#include "nrnmpiuse.h"
#if NRNMPI_DYNAMICLOAD /* to end of file */
 
#include <stdio.h>
#include "nrnmpidec.h"
 
extern double nrn_timeus();
 
static void stub_nrnmpi_init(int nrnmpi_under_nrncontrol, int* pargc, char*** pargv) {}
static void stub_nrnmpi_terminate() {}
static double stub_nrnmpi_mindelay(double m) {
    return m;
}
static int stub_nrnmpi_int_allmax(int x) {
    return x;
}
static void stub_nrnmpi_barrier() {}
 
void nrnmpi_stubs() {
    p_nrnmpi_init = stub_nrnmpi_init;
    p_nrnmpi_terminate = stub_nrnmpi_terminate;
    p_nrnmpi_wtime = nrn_timeus;
    p_nrnmpi_mindelay = stub_nrnmpi_mindelay;
    p_nrnmpi_int_allmax = stub_nrnmpi_int_allmax;
    p_nrnmpi_barrier = stub_nrnmpi_barrier;
}
 
#endif