27 MPI_Init(&fake_argc, &fake_argv);
28 MPI_Comm_rank(MPI_COMM_WORLD, &
myid);
29 MPI_Comm_size(MPI_COMM_WORLD, &
nproc);
32 cout << endl <<
"****** WARNING, more than one processor class object" << endl;
35 cout <<
"\n# MPI IS ON" <<
"; Nprocs = " <<
nproc << endl;
36 MPI_Barrier(MPI_COMM_WORLD);