version 1.62, 2012/12/17 07:20:45 |
version 1.64, 2013/09/26 00:38:47 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.61 2011/06/16 08:17:15 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.63 2013/06/13 18:40:31 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
#endif |
#endif |
#include "ox.h" |
#include "ox.h" |
|
|
#if defined(VISUAL) |
|
#include <stdlib.h> |
#include <stdlib.h> |
|
#if defined(VISUAL) |
#include <winsock2.h> |
#include <winsock2.h> |
#include <process.h> |
#include <process.h> |
#endif |
#endif |
Line 128 void Pgenerate_port(),Ptry_bind_listen(),Ptry_connect( |
|
Line 128 void Pgenerate_port(),Ptry_bind_listen(),Ptry_connect( |
|
void Pregister_server(); |
void Pregister_server(); |
void Pox_get_serverinfo(); |
void Pox_get_serverinfo(); |
void Pox_mpi_myid(), Pox_mpi_nprocs(); |
void Pox_mpi_myid(), Pox_mpi_nprocs(); |
void Pnd_exec_f4_red(); |
|
void Pox_tcp_accept_102(),Pox_tcp_connect_102(); |
void Pox_tcp_accept_102(),Pox_tcp_connect_102(); |
void Pox_send_102(),Pox_recv_102(); |
void Pox_send_102(),Pox_recv_102(); |
void Pox_set_rank_102(); |
void Pox_set_rank_102(); |
Line 203 struct ftab tcp_tab[] = { |
|
Line 202 struct ftab tcp_tab[] = { |
|
{"ox_execute_string",Pox_execute_string,2}, |
{"ox_execute_string",Pox_execute_string,2}, |
{"ox_execute_function",Pox_execute_function,3}, |
{"ox_execute_function",Pox_execute_function,3}, |
|
|
{"nd_exec_f4_red",Pnd_exec_f4_red,0}, |
|
|
|
|
|
{0,0,0}, |
{0,0,0}, |
}; |
}; |
|
|
Line 213 extern struct IOFP iofp[]; |
|
Line 209 extern struct IOFP iofp[]; |
|
extern MATHCAP my_mathcap; |
extern MATHCAP my_mathcap; |
extern int ox_exchange_mathcap; |
extern int ox_exchange_mathcap; |
|
|
char *getenv(); |
Obj asir_pop_one(); |
|
void asir_push_one(Obj); |
void Pnd_exec_f4_red(Q *rp) |
|
{ |
|
nd_exec_f4_red_dist(); |
|
*rp = 0; |
|
} |
|
|
|
#if defined(MPI) |
#if defined(MPI) |
extern int mpi_myid, mpi_nprocs; |
extern int mpi_myid, mpi_nprocs; |