[mvapich-discuss] Troubles when using MPI_Open_port

[Hari Subramoni]

Hello,

Can you try running with "MV2_SUPPORT_DPM=1" and see if it solves the issue?

Please refer to the following section of the userguide for more information.

http://mvapich.cse.ohio-state.edu/static/media/mvapich/mvapich2-2.1-userguide.html#x1-23100011.73

If this does not help solve your issue, can you please send the output of
mpiname -a?

Regards,
Hari.

On Fri, Apr 17, 2015 at 8:36 AM, 马凯 <makailove123 at 163.com> wrote:

> I tried to use MPI_Open_port in my program, but when I run it, I got the
> error message as this:
> [cli_0]: aborting job:
> Fatal error in PMPI_Open_port:
> Other MPI error, error stack:
> PMPI_Open_port(123): MPI_Open_port(MPI_INFO_NULL, port=0x7fff87806ed0)
> failed
> MPID_Open_port(70).: Function not implemented
>
> Could some one give me some help?
> Thanks!
>
> This is my code:
> #include <mpi.h>
> #include <stdio.h>
> #include <stdlib.h>
>
> #define MAX_DATA 1024
>
> 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) {
>         printf("Server too big\n");
>         exit(EXIT_FAILURE);
>     }
>     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);
>             }
>         }
>     }
> }
>
>
>
>
> _______________________________________________
> mvapich-discuss mailing list
> mvapich-discuss at cse.ohio-state.edu
> http://mailman.cse.ohio-state.edu/mailman/listinfo/mvapich-discuss
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.cse.ohio-state.edu/pipermail/mvapich-discuss/attachments/20150417/a40efcc6/attachment-0001.html>