topic Re:mpirun issue in Intel® MPI Library

mpirun issue

karamiag — Tue, 26 Jan 2021 16:31:20 GMT

Hello everybody,

I have just installed oneapi 2021.1 and I had no problems in compiling and executing this C source

#include <mpi.h> #include <stdio.h> int main(int argc, char** argv) { MPI_Init(NULL,NULL); int world_size; MPI_Comm_size(MPI_COMM_WORLD, &world_size); int world_rank; MPI_Comm_rank(MPI_COMM_WORLD, &world_rank); char processor_name[MPI_MAX_PROCESSOR_NAME]; int name_len; MPI_Get_processor_name(processor_name, &name_len); printf("Hello world from processor %s, rank %d out of %d processors\n", processor_name, world_rank, world_size); MPI_Finalize(); }

The compilation command is

mpiicc hello.c -o hello_mpi

The execution command is

mpirun ./hello_mpi

Even the compilation of this fortran source is ok

program greet implicit none include 'mpif.h' integer my_rank integer p integer source integer dest integer tag integer size integer status(MPI_STATUS_SIZE) integer ierr character*23 message character*10 digit_string call MPI_Init(ierr) call MPI_Comm_size(MPI_COMM_WORLD,p,ierr) call MPI_Comm_rank(MPI_COMM_WORLD,my_rank,ierr) write(*,*) my_rank,p if (my_rank.ne.0) then write(digit_string,FMT="(I3)") my_rank message = 'Hello from'//achar(9) > // digit_string // ' !'//achar(0) dest = 0 tag = 0 write(*,*) len_trim(message) write(*,*)message call MPI_Send(message,len_trim(message), > MPI_CHARACTER,dest,tag,MPI_COMM_WORLD,ierr) else do source=1, p-1 tag = 0 call MPI_RECV(message, 200, MPI_INTEGER,source,tag, > MPI_COMM_WORLD,status,ierr) write(6,FMT="(A)") message write(*,*) message enddo end if call MPI_FINALIZE(ierr) stop end

The compilation command is

mpifort -o greet.e greet.f

The problem is the execution of the command

mpirun -n 4 -ppn 1 ./greet.e

which is wrong:

0 1
0 1
0 1
0 1

Could anyone help me?

Thank you.

Re:mpirun issue

PrasanthD_intel — Fri, 29 Jan 2021 12:07:48 GMT

Hi Giovanni,

I ran your code in my environment with the same 2021 version oneAPI Fortran compiler.

I have changed the extension .f to .f90 and it ran fine.

Here is my output:

[pdwadasx@eln6 urgent]$ mpiifort greet.f90

[pdwadasx@eln6 urgent]$ mpirun -n 5 ./a.out

2 5

Hello from 2 !

0 5

3 5

Hello from 3 !

1 5

Hello from 1 !

4 5

Hello from 4 !

Hello from 1 !

Hello from 2 !

Hello from 3 !

Hello from 4 !

Here i can see all the ranks getting printed in the output, unlike yours. Also, from your query, I can observe that you are using mpifort(GNU based) instead mpiifort (Intel compiler).

Let me know if doing the same solves your issue.

Regards

Prasanth

Re: mpirun issue

PrasanthD_intel — Mon, 01 Feb 2021 07:49:44 GMT

Hi Giovanni,

Thanks for the confirmation.

As the issue has been resolved, we will no longer respond to this thread. If you require additional assistance from Intel, please start a new thread. Any further interaction in this thread will be considered community only.

Regards

Prasanth