port_name 608 ompi/dpm/dpm.c const char *port_name) port_name 701 ompi/dpm/dpm.c opal_setenv("OMPI_PARENT_PORT", port_name, true, &app->env); port_name 959 ompi/dpm/dpm.c int ompi_dpm_open_port(char *port_name) port_name 966 ompi/dpm/dpm.c snprintf(port_name, MPI_MAX_PORT_NAME-1, "%s:%u", tmp, r); port_name 967 ompi/dpm/dpm.c port_name[MPI_MAX_PORT_NAME - 1] = '\0'; port_name 972 ompi/dpm/dpm.c int ompi_dpm_close_port(const char *port_name) port_name 983 ompi/dpm/dpm.c char *port_name=NULL, *tmp, *ptr; port_name 1003 ompi/dpm/dpm.c port_name = strdup(ptr); port_name 1005 ompi/dpm/dpm.c rc = ompi_dpm_connect_accept(MPI_COMM_WORLD, root, port_name, send_first, &newcomm); port_name 1006 ompi/dpm/dpm.c free(port_name); port_name 64 ompi/dpm/dpm.h const char *port_name); port_name 92 ompi/dpm/dpm.h int ompi_dpm_open_port(char *port_name); port_name 97 ompi/dpm/dpm.h int ompi_dpm_close_port(const char *port_name); port_name 44 ompi/mpi/c/close_port.c int MPI_Close_port(const char *port_name) port_name 53 ompi/mpi/c/close_port.c if ( NULL == port_name ) port_name 58 ompi/mpi/c/close_port.c ret = ompi_dpm_close_port(port_name); port_name 50 ompi/mpi/c/comm_accept.c int MPI_Comm_accept(const char *port_name, MPI_Info info, int root, port_name 89 ompi/mpi/c/comm_accept.c if ( NULL == port_name ) port_name 107 ompi/mpi/c/comm_accept.c rc = ompi_dpm_connect_accept (comm, root, port_name, send_first, port_name 50 ompi/mpi/c/comm_connect.c int MPI_Comm_connect(const char *port_name, MPI_Info info, int root, port_name 89 ompi/mpi/c/comm_connect.c if ( NULL == port_name ) port_name 109 ompi/mpi/c/comm_connect.c rc = ompi_dpm_connect_accept (comm, root, port_name, send_first, port_name 70 ompi/mpi/c/comm_join.c char port_name[MPI_MAX_PORT_NAME]; port_name 122 ompi/mpi/c/comm_join.c if (OMPI_SUCCESS != (rc = ompi_dpm_open_port(port_name))) { port_name 127 ompi/mpi/c/comm_join.c llen = (uint32_t)(strlen(port_name)+1); port_name 130 ompi/mpi/c/comm_join.c ompi_socket_send (fd, port_name, llen); port_name 136 ompi/mpi/c/comm_join.c ompi_socket_recv (fd, port_name, lrlen); port_name 140 ompi/mpi/c/comm_join.c rc = ompi_dpm_connect_accept (MPI_COMM_SELF, 0, port_name, send_first, &newcomp); port_name 57 ompi/mpi/c/comm_spawn.c char port_name[MPI_MAX_PORT_NAME]; port_name 108 ompi/mpi/c/comm_spawn.c memset(port_name, 0, MPI_MAX_PORT_NAME); port_name 121 ompi/mpi/c/comm_spawn.c if (OMPI_SUCCESS != (rc = ompi_dpm_open_port (port_name))) { port_name 130 ompi/mpi/c/comm_spawn.c &info, port_name))) { port_name 138 ompi/mpi/c/comm_spawn.c rc = ompi_dpm_connect_accept (comm, root, port_name, send_first, &newcomp); port_name 152 ompi/mpi/c/comm_spawn.c ompi_dpm_close_port(port_name); port_name 58 ompi/mpi/c/comm_spawn_multiple.c char port_name[MPI_MAX_PORT_NAME]; port_name 153 ompi/mpi/c/comm_spawn_multiple.c memset(port_name, 0, MPI_MAX_PORT_NAME); port_name 161 ompi/mpi/c/comm_spawn_multiple.c if (OMPI_SUCCESS != (rc = ompi_dpm_open_port (port_name))) { port_name 171 ompi/mpi/c/comm_spawn_multiple.c array_of_info, port_name))) { port_name 179 ompi/mpi/c/comm_spawn_multiple.c rc = ompi_dpm_connect_accept (comm, root, port_name, send_first, &newcomp); port_name 193 ompi/mpi/c/comm_spawn_multiple.c ompi_dpm_close_port(port_name); port_name 49 ompi/mpi/c/lookup_name.c int MPI_Lookup_name(const char *service_name, MPI_Info info, char *port_name) port_name 60 ompi/mpi/c/lookup_name.c if ( NULL == port_name ) { port_name 142 ompi/mpi/c/lookup_name.c opal_string_copy( port_name, pdat->value.data.string, port_name 41 ompi/mpi/c/open_port.c int MPI_Open_port(MPI_Info info, char *port_name) port_name 48 ompi/mpi/c/open_port.c if ( NULL == port_name ) { port_name 71 ompi/mpi/c/open_port.c rc = ompi_dpm_open_port(port_name); port_name 49 ompi/mpi/c/publish_name.c const char *port_name) port_name 60 ompi/mpi/c/publish_name.c if ( NULL == port_name || 0 == strlen(port_name) ) { port_name 153 ompi/mpi/c/publish_name.c rng->data.string = strdup(port_name); port_name 50 ompi/mpi/c/unpublish_name.c const char *port_name) port_name 62 ompi/mpi/c/unpublish_name.c if ( NULL == port_name ) { port_name 122 ompi/mpi/cxx/functions.h Close_port(const char* port_name); port_name 126 ompi/mpi/cxx/functions.h Lookup_name(const char* service_name, const Info& info, char* port_name); port_name 130 ompi/mpi/cxx/functions.h Open_port(const Info& info, char* port_name); port_name 135 ompi/mpi/cxx/functions.h const char* port_name); port_name 139 ompi/mpi/cxx/functions.h const char* port_name); port_name 224 ompi/mpi/cxx/functions_inln.h MPI::Close_port(const char* port_name) port_name 226 ompi/mpi/cxx/functions_inln.h (void) MPI_Close_port(const_cast<char *>(port_name)); port_name 233 ompi/mpi/cxx/functions_inln.h char* port_name) port_name 235 ompi/mpi/cxx/functions_inln.h (void) MPI_Lookup_name(const_cast<char *>(service_name), info, port_name); port_name 240 ompi/mpi/cxx/functions_inln.h MPI::Open_port(const MPI::Info& info, char* port_name) port_name 242 ompi/mpi/cxx/functions_inln.h (void) MPI_Open_port(info, port_name); port_name 249 ompi/mpi/cxx/functions_inln.h const char* port_name) port_name 252 ompi/mpi/cxx/functions_inln.h const_cast<char *>(port_name)); port_name 259 ompi/mpi/cxx/functions_inln.h const char* port_name) port_name 262 ompi/mpi/cxx/functions_inln.h const_cast<char *>(port_name)); port_name 126 ompi/mpi/cxx/intracomm.h virtual Intercomm Accept(const char* port_name, const Info& info, int root) port_name 129 ompi/mpi/cxx/intracomm.h virtual Intercomm Connect(const char* port_name, const Info& info, int root) port_name 130 ompi/mpi/cxx/intracomm_inln.h MPI::Intracomm::Accept(const char* port_name, port_name 135 ompi/mpi/cxx/intracomm_inln.h (void) MPI_Comm_accept(const_cast<char *>(port_name), info, root, mpi_comm, port_name 142 ompi/mpi/cxx/intracomm_inln.h MPI::Intracomm::Connect(const char* port_name, port_name 147 ompi/mpi/cxx/intracomm_inln.h (void) MPI_Comm_connect(const_cast<char *>(port_name), info, root, mpi_comm, port_name 42 ompi/mpi/fortran/mpif-h/close_port_f.c (char *port_name, MPI_Fint *ierr, int port_name_len), port_name 43 ompi/mpi/fortran/mpif-h/close_port_f.c (port_name, ierr, port_name_len) ) port_name 62 ompi/mpi/fortran/mpif-h/close_port_f.c (char *port_name, MPI_Fint *ierr, int port_name_len), port_name 63 ompi/mpi/fortran/mpif-h/close_port_f.c (port_name, ierr, port_name_len) ) port_name 70 ompi/mpi/fortran/mpif-h/close_port_f.c void ompi_close_port_f(char *port_name, MPI_Fint *ierr, int port_name_len) port_name 75 ompi/mpi/fortran/mpif-h/close_port_f.c ompi_fortran_string_f2c(port_name, port_name_len, &c_port_name); port_name 42 ompi/mpi/fortran/mpif-h/comm_accept_f.c (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, int port_name_len), port_name 43 ompi/mpi/fortran/mpif-h/comm_accept_f.c (port_name, info, root, comm, newcomm, ierr, port_name_len) ) port_name 62 ompi/mpi/fortran/mpif-h/comm_accept_f.c (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, int port_name_len), port_name 63 ompi/mpi/fortran/mpif-h/comm_accept_f.c (port_name, info, root, comm, newcomm, ierr, port_name_len) ) port_name 70 ompi/mpi/fortran/mpif-h/comm_accept_f.c void ompi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, port_name 81 ompi/mpi/fortran/mpif-h/comm_accept_f.c ompi_fortran_string_f2c(port_name, port_name_len, &c_port_name); port_name 42 ompi/mpi/fortran/mpif-h/comm_connect_f.c (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, int port_name_len), port_name 43 ompi/mpi/fortran/mpif-h/comm_connect_f.c (port_name, info, root, comm, newcomm, ierr, port_name_len) ) port_name 62 ompi/mpi/fortran/mpif-h/comm_connect_f.c (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, int port_name_len), port_name 63 ompi/mpi/fortran/mpif-h/comm_connect_f.c (port_name, info, root, comm, newcomm, ierr, port_name_len) ) port_name 70 ompi/mpi/fortran/mpif-h/comm_connect_f.c void ompi_comm_connect_f(char *port_name, MPI_Fint *info, port_name 82 ompi/mpi/fortran/mpif-h/comm_connect_f.c ompi_fortran_string_f2c(port_name, port_name_len, &c_port_name); port_name 42 ompi/mpi/fortran/mpif-h/lookup_name_f.c (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len), port_name 43 ompi/mpi/fortran/mpif-h/lookup_name_f.c (service_name, info, port_name, ierr, service_name_len, port_name_len) ) port_name 62 ompi/mpi/fortran/mpif-h/lookup_name_f.c (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len), port_name 63 ompi/mpi/fortran/mpif-h/lookup_name_f.c (service_name, info, port_name, ierr, service_name_len, port_name_len) ) port_name 71 ompi/mpi/fortran/mpif-h/lookup_name_f.c char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len) port_name 92 ompi/mpi/fortran/mpif-h/lookup_name_f.c ompi_fortran_string_c2f(c_port_name, port_name, port_name_len); port_name 42 ompi/mpi/fortran/mpif-h/open_port_f.c (MPI_Fint *info, char *port_name, MPI_Fint *ierr, int port_name_len), port_name 43 ompi/mpi/fortran/mpif-h/open_port_f.c (info, port_name, ierr, port_name_len) ) port_name 62 ompi/mpi/fortran/mpif-h/open_port_f.c (MPI_Fint *info, char *port_name, MPI_Fint *ierr, int port_name_len), port_name 63 ompi/mpi/fortran/mpif-h/open_port_f.c (info, port_name, ierr, port_name_len) ) port_name 70 ompi/mpi/fortran/mpif-h/open_port_f.c void ompi_open_port_f(MPI_Fint *info, char *port_name, MPI_Fint *ierr, int port_name_len) port_name 82 ompi/mpi/fortran/mpif-h/open_port_f.c ompi_fortran_string_c2f(c_port_name, port_name, port_name_len ); port_name 119 ompi/mpi/fortran/mpif-h/prototypes_mpi.h PN2(void, MPI_Close_port, mpi_close_port, MPI_CLOSE_PORT, (char *port_name, MPI_Fint *ierr, int port_name_len)); port_name 120 ompi/mpi/fortran/mpif-h/prototypes_mpi.h PN2(void, MPI_Comm_accept, mpi_comm_accept, MPI_COMM_ACCEPT, (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, int port_name_len)); port_name 123 ompi/mpi/fortran/mpif-h/prototypes_mpi.h PN2(void, MPI_Comm_connect, mpi_comm_connect, MPI_COMM_CONNECT, (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr, int port_name_len)); port_name 310 ompi/mpi/fortran/mpif-h/prototypes_mpi.h PN2(void, MPI_Lookup_name, mpi_lookup_name, MPI_LOOKUP_NAME, (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len)); port_name 320 ompi/mpi/fortran/mpif-h/prototypes_mpi.h PN2(void, MPI_Open_port, mpi_open_port, MPI_OPEN_PORT, (MPI_Fint *info, char *port_name, MPI_Fint *ierr, int port_name_len)); port_name 328 ompi/mpi/fortran/mpif-h/prototypes_mpi.h PN2(void, MPI_Publish_name, mpi_publish_name, MPI_PUBLISH_NAME, (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len)); port_name 406 ompi/mpi/fortran/mpif-h/prototypes_mpi.h PN2(void, MPI_Unpublish_name, mpi_unpublish_name, MPI_UNPUBLISH_NAME, (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len)); port_name 42 ompi/mpi/fortran/mpif-h/publish_name_f.c (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len), port_name 43 ompi/mpi/fortran/mpif-h/publish_name_f.c (service_name, info, port_name, ierr, service_name_len, port_name_len) ) port_name 62 ompi/mpi/fortran/mpif-h/publish_name_f.c (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len), port_name 63 ompi/mpi/fortran/mpif-h/publish_name_f.c (service_name, info, port_name, ierr, service_name_len, port_name_len) ) port_name 71 ompi/mpi/fortran/mpif-h/publish_name_f.c char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len) port_name 80 ompi/mpi/fortran/mpif-h/publish_name_f.c ompi_fortran_string_f2c(port_name, port_name_len, &c_port_name); port_name 42 ompi/mpi/fortran/mpif-h/unpublish_name_f.c (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len), port_name 43 ompi/mpi/fortran/mpif-h/unpublish_name_f.c (service_name, info, port_name, ierr, service_name_len, port_name_len) ) port_name 62 ompi/mpi/fortran/mpif-h/unpublish_name_f.c (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr, int service_name_len, int port_name_len), port_name 63 ompi/mpi/fortran/mpif-h/unpublish_name_f.c (service_name, info, port_name, ierr, service_name_len, port_name_len) ) port_name 71 ompi/mpi/fortran/mpif-h/unpublish_name_f.c char *port_name, MPI_Fint *ierr, port_name 81 ompi/mpi/fortran/mpif-h/unpublish_name_f.c ompi_fortran_string_f2c(port_name, port_name_len, &c_port_name); port_name 2109 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h subroutine ompi_close_port_f(port_name,ierror,port_name_len) & port_name 2113 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name port_name 2118 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h subroutine ompi_comm_accept_f(port_name,info,root,comm,newcomm,ierror,port_name_len) & port_name 2122 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name port_name 2131 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h subroutine ompi_comm_connect_f(port_name,info,root,comm,newcomm,ierror,port_name_len) & port_name 2135 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name port_name 2201 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h subroutine ompi_lookup_name_f(service_name,info,port_name,ierror, & port_name 2208 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: port_name port_name 2213 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h subroutine ompi_open_port_f(info,port_name,ierror,port_name_len) & port_name 2218 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: port_name port_name 2223 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h subroutine ompi_publish_name_f(service_name,info,port_name,ierror, & port_name 2229 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: service_name, port_name port_name 2234 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h subroutine ompi_unpublish_name_f(service_name,info,port_name, & port_name 2239 ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: service_name, port_name port_name 2113 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h subroutine MPI_Close_port(port_name, ierror) port_name 2114 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2123 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h subroutine MPI_Lookup_name(service_name, info, port_name, ierror) port_name 2126 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h character(len=*), intent(out) :: port_name port_name 2135 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h subroutine MPI_Open_port(info, port_name, ierror) port_name 2137 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h character(len=*), intent(out) :: port_name port_name 2146 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h subroutine MPI_Publish_name(service_name, info, port_name, ierror) port_name 2149 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2158 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h subroutine MPI_Unpublish_name(service_name, info, port_name, ierror) port_name 2161 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2201 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h subroutine MPI_Comm_accept(port_name, info, root, comm, newcomm& port_name 2203 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2216 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h subroutine MPI_Comm_connect(port_name, info, root, comm, newcomm& port_name 2218 ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2115 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h subroutine PMPI_Close_port(port_name, ierror) port_name 2116 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2125 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h subroutine PMPI_Lookup_name(service_name, info, port_name, ierror) port_name 2128 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h character(len=*), intent(out) :: port_name port_name 2137 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h subroutine PMPI_Open_port(info, port_name, ierror) port_name 2139 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h character(len=*), intent(out) :: port_name port_name 2148 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h subroutine PMPI_Publish_name(service_name, info, port_name, ierror) port_name 2151 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2160 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h subroutine PMPI_Unpublish_name(service_name, info, port_name, ierror) port_name 2163 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2203 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h subroutine PMPI_Comm_accept(port_name, info, root, comm, newcomm& port_name 2205 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 2218 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h subroutine PMPI_Comm_connect(port_name, info, root, comm, newcomm& port_name 2220 ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h character(len=*), intent(in) :: port_name port_name 12 orte/test/mpi/client.c char port_name[MPI_MAX_PORT_NAME]; port_name 16 orte/test/mpi/client.c strcpy(port_name, argv[1] ); /* assume server's name is cmd-line arg */ port_name 18 orte/test/mpi/client.c MPI_Comm_connect( port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &server ); port_name 12 orte/test/mpi/server.c char port_name[MPI_MAX_PORT_NAME]; port_name 22 orte/test/mpi/server.c MPI_Open_port(MPI_INFO_NULL, port_name); port_name 23 orte/test/mpi/server.c printf("server available at %s\n",port_name); port_name 27 orte/test/mpi/server.c MPI_Comm_accept( port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &client ); port_name 41 orte/test/mpi/server.c MPI_Close_port(port_name);