[mpich-discuss] invalid rank in mpi_send

[Rob Latham]

On 05/21/2014 08:07 AM, Chafik sanaa wrote:
> what do you mean by invalid rank ? this is my program :

your program runs fine on 2 processes on my linux laptop.  Perhaps you 
mistakenly executed it with one process?

if the problem is with MS-MPI, you should try the MS-MPI forum:

http://social.microsoft.com/Forums/en-US/home?forum=windowshpcmpi

or askmpi at microsoft.com

==rob

>
> #include "mpi.h"
> #include <stdlib.h>
> #include <stdio.h>
> int main(int argc, char *argv[]) {
>    int rang,iter,iter2;
>    int nb_tests=9;
>    int nb_valeurs[9];
>    int nb_valeurs_max=7000000;
>    int etiquette=99;
>    double *valeurs;
>    MPI_Status statut;
>    double temps_debut,temps_fin;
>
>    MPI_Init( &argc, &argv);
>
>    nb_valeurs[0]=0,nb_valeurs[1]=1,nb_valeurs[2]=10,nb_valeurs[3]=100;
>    nb_valeurs[4]=1000,nb_valeurs[5]=10000,nb_valeurs[6]=100000;
>    nb_valeurs[7]=1000000,nb_valeurs[8]=7000000;
>
>    MPI_Comm_rank( MPI_COMM_WORLD, &rang);
>
>    valeurs = (double *) malloc(nb_valeurs_max*sizeof(double));
>
>    for(iter=0; iter<nb_tests; iter++) {
>      if (rang == 0) {
>        for (iter2 = 0; iter2<nb_valeurs[iter]; iter2++)
>      valeurs[iter2] = rand() / (RAND_MAX + 1.);
>        temps_debut=MPI_Wtime();
>
> MPI_Send(valeurs,nb_valeurs[iter],MPI_DOUBLE,1,etiquette,MPI_COMM_WORLD);
>        MPI_Recv(valeurs,nb_valeurs[iter],MPI_DOUBLE,1,etiquette,
>             MPI_COMM_WORLD,&statut);
>        temps_fin=MPI_Wtime();
>        if (nb_valeurs[iter] != 0) {
>      printf("Moi, processus 0, j'ai envoye et recu %8d valeurs"
>             "(derniere = %4.2f) du processus 1 en %8.6f secondes, soit "
>             "avec un debit de %7.2f Mo/s.\n",
>             nb_valeurs[iter], valeurs[nb_valeurs[iter]-1],
>             temps_fin-temps_debut,
>             2.*nb_valeurs[iter]*8/1000000./(temps_fin-temps_debut));
>        } else
>      printf("Moi, processus 0, j'ai envoye et recu %8d valeurs en %8.6f "
>             "secondes, soit avec un debit de %7.2f Mo/s.\n",
>             nb_valeurs[iter], temps_fin-temps_debut,
>             2.*nb_valeurs[iter]*8/1000000./(temps_fin-temps_debut));
>      } else if(rang == 1) {
>        MPI_Recv(valeurs,nb_valeurs[iter],MPI_DOUBLE,0,etiquette,
>             MPI_COMM_WORLD,&statut);
>
> MPI_Send(valeurs,nb_valeurs[iter],MPI_DOUBLE,0,etiquette,MPI_COMM_WORLD);
>      }
>    }
>
>    MPI_Finalize();
>    return 0;
> }
>
>
>
> 2014-05-21 15:03 GMT+02:00 Rob Latham <robl at mcs.anl.gov
> <mailto:robl at mcs.anl.gov>>:
>
>
>
>     On 05/21/2014 04:28 AM, Chafik sanaa wrote:
>
>         Hi,
>         I use the  Microsoft HPC Pack 2008 R2 in the visual studio 2010
>         , when i
>         execute my program i have this error :
>         fatal error in pmpi_send invalid rank error stack PMPI_Send(150):
>         MPI_send(buf=...
>         What is the problem?
>
>
>     uh, you passed an invalid rank to MPI_Send.
>
>     ==rob
>
>         thank you
>
>
>         _________________________________________________
>         To manage subscription options or unsubscribe:
>         https://lists.mpich.org/__mailman/listinfo/devel
>         <https://lists.mpich.org/mailman/listinfo/devel>
>
>
>     --
>     Rob Latham
>     Mathematics and Computer Science Division
>     Argonne National Lab, IL USA
>     _________________________________________________
>     To manage subscription options or unsubscribe:
>     https://lists.mpich.org/__mailman/listinfo/devel
>     <https://lists.mpich.org/mailman/listinfo/devel>
>
>
>
>
> _______________________________________________
> To manage subscription options or unsubscribe:
> https://lists.mpich.org/mailman/listinfo/devel
>

-- 
Rob Latham
Mathematics and Computer Science Division
Argonne National Lab, IL USA