problème avec bibliothèque MPI

Version imprimable

15/01/2012, 14h17
b.moussa

problème avec bibliothèque MPI

Bon soir,
j'ai un problème dans le programme Client Serveur avec la bibliothèque "MPI",
quand je l’exécute avec l'invité de commande il affiche:
Fatal error in MPI_Open_port : Other MPI error, error stack : MPI_Open_port<95>.. :MPI_Open_port<MPI_INFO_NULL,port=0x0017F83C> failed MPI_Open_port<108>: Function not implemented
15/01/2012, 14h40
koala01

Salut,

Citation:

Envoyé par b.moussa

Bon soir,
j'ai un problème dans le programme Client Serveur avec la bibliothèque "MPI",
quand je l’exécute avec l'invité de commande il affiche:
Fatal error in MPI_Open_port : Other MPI error, error stack : MPI_Open_port<95>.. :MPI_Open_port<MPI_INFO_NULL,port=0x0017F83C> failed MPI_Open_port<108>: Function not implemented

Voilà qui est très moche !!

Le problème, c'est que si tu ne nous en dis pas un peu plus, nous ne pourrons jamais t'aider :aie:

Est ce un programme que tu as créé par toi meme, ou un programme que tu t'es procuré auprès de quelqu'un :question:

Si c'est un programme "perso", pourrais tu déjà essayer de nous en dire d'avantage, en essayant, par exemple, de déterminer la partie de code qui provoque ce genre d'erreur et en nous la présentant :question:

Si c'est un programme que tu t'es procuré auprès de quelqu'un d'autre, et que tu n'en as pas les sources, je crains que le mieux à faire soit de leur envoyer un rapport de bug ;)

je suis désolé,
et voici le programme (le code du client et du serveur)

1.Le code du client :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 #include "mpi.h" 
#include <cstdio>
#include "string.h"
#define MAX_DATA 100
using namespace std;
int main( int argc, char **argv ) 
{ 
    MPI_Comm server; 
    double buf[MAX_DATA]; 
    char port_name[MPI_MAX_PORT_NAME]; 
 
    MPI_Init( &argc, &argv ); 
    strcpy(port_name, argv[1]); /* assume server's name is cmd-line arg */ 
 
    MPI_Comm_connect( port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &server ); 
 
    bool done = false; int tag, n = 0;
	while (!done) { 
        tag = 2; 
        MPI_Send( buf, n++, MPI_DOUBLE, 0, tag, server ); 
    } 
    MPI_Send( buf, 0, MPI_DOUBLE, 0, 1, server ); 
    MPI_Comm_disconnect( &server ); 
    MPI_Finalize(); 
    return 0; 
}

2. Le code du serveur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#include "mpi.h" 
#include <cstdio>
#include "string.h"
#define MAX_DATA 100
using namespace std;
 
int main( int argc, char **argv ) 
{ 
    MPI_Comm client; 
    MPI_Status status; 
    char port_name[MPI_MAX_PORT_NAME]; 
    double buf[MAX_DATA]; 
    int    size, again; 
 
    MPI_Init( &argc, &argv ); 
    MPI_Comm_size(MPI_COMM_WORLD, &size); 
    //if (size != 1) error(FATAL, "Server too big"); 
    MPI_Open_port(MPI_INFO_NULL, port_name); 
    printf("server available at %s\n",port_name); 
 
	while (1) { 
        MPI_Comm_accept( port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &client ); 
        again = 1; 
        while (again) { 
            MPI_Recv( buf, MAX_DATA, MPI_DOUBLE, MPI_ANY_SOURCE, MPI_ANY_TAG, client, &status ); 
            switch (status.MPI_TAG) { 
                case 0: MPI_Comm_free( &client ); 
                        MPI_Close_port(port_name); 
                        MPI_Finalize(); 
                        return 0; 
                case 1: MPI_Comm_disconnect( &client ); 
                        again = 0; 
                        break; 
                case 2: /* do something */ 
						break;
                default: 
                        /* Unexpected message type */ 
                        MPI_Abort( MPI_COMM_WORLD, 1 ); 
                } 
            } 
        } 
}