Open MPI logo

Open MPI User's Mailing List Archives

  |   Home   |   Support   |   FAQ   |   all Open MPI User's mailing list

Subject: Re: [OMPI users] Program abortion at a simple MPI_Get Programm
From: Siegmar Gross (Siegmar.Gross_at_[hidden])
Date: 2014-06-19 02:35:28


Hi,

> I wrote a litte MPI program to demonstrate the mpi_get() function
> (see attachment).
>
> The idea behind the program is that a master process with rank 0
> fills an integer array with the size of MPI_Comm_size with values.
> The other processes should MPI_GET the value from this shared int
> array at the index of their rank.
>
> We could compile the code, but execution will raise an error.

You use the following statements:

int rank, size, *a, *b, namelen, i, sizereal, flag;
...
MPI_Win_get_attr(win, MPI_WIN_SIZE, &sizereal, &flag);

The MPI 3.0 standard requires on page 416 that MPI_WIN_SIZE should
have type "MPI_Aint *".

tyr test_onesided 138 diff beispiel2_flo.c*
18c18
< int rank, size, *a, *b, namelen, i, flag;

---
>       int rank, size, *a, *b, namelen, i, sizereal, flag;
21d20
<       MPI_Aint *sizereal;
44c43
<       {
---
>       {+
54c53
<           printf("Real Size %d\n", *sizereal); 
---
>           printf("Real Size %d\n", sizereal); 
59c58
<         printf ("Process %d after MPI_Win_create()\n", rank);
---
>         printf ("Process %d after MPI_Win_create()\n");
77c76
<         printf("Prozess %d# hat Wert %d von Prozess 0 geholt\n", rank, *b);
---
>         printf("Prozess %d# hat Wert %d von Prozess 0 geholt\n", rank, b);
[2]  - Done                          xemacs beispiel2_flo.c
tyr test_onesided 139 
If you change the type of "sizereal" and fix some more bugs, you
get what you want.
tyr test_onesided 139 mpiexec -np 2 a.out
Guten Tag. Ich bin Prozess 1 von 2. Ich werde auf Host tyr.informatik.hs-fulda.de ausgefuehrt
Guten Tag. Ich bin Prozess 0 von 2. Ich werde auf Host tyr.informatik.hs-fulda.de ausgefuehrt
a[0]=0
a[1]=100
ok1
ok1
Process 1 after MPI_Win_create()
ok3
ok2
Real Size 8
ok3
Prozess 1# hat Wert 100 von Prozess 0 geholt
tyr test_onesided 140 
Kind regards
Siegmar