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 [email protected] ==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 <[email protected] <mailto:[email protected]>>:
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