MPI последовательная основная функция
Это довольно простой вопрос MPI, но я не могу обойти его. У меня есть основная функция, которая вызывает другую функцию, которая использует MPI. Я хочу, чтобы основная функция выполнялась последовательно, а другая - параллельно. Мой код такой:
int main (int argc, char *argv[])
{
//some serial code goes here
parallel_function(arg1, arg2);
//some more serial code goes here
}
void parallel_function(int arg1, int arg2)
{
//init MPI and do some stuff in parallel
MPI_Init(NULL, NULL);
MPI_Comm_size(MPI_COMM_WORLD, &p);
MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
//now do some parallel stuff
//....
//finalize to end MPI??
MPI_Finalize();
}
Мой код работает нормально и получает ожидаемый результат, но проблема в том, что основная функция также выполняется в отдельных процессах, поэтому последовательный код выполняется более одного раза. Я не знаю, как он работает несколько раз, потому что я еще даже не вызывал MPI_Init (если я печатаю f в main перед тем, как я вызываю parallel_function, я вижу несколько printf)
Как я могу остановить мою программу, работающую параллельно после того, как я закончу?
Спасибо за любые ответы!