version 1.3, 2000/02/08 04:47:11 |
version 1.4, 2000/07/13 05:09:02 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/io/sio.c,v 1.2 1999/12/24 06:57:22 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/sio.c,v 1.3 2000/02/08 04:47:11 noro Exp $ */ |
#if INET |
#if INET |
#include "ca.h" |
#include "ca.h" |
#include "setjmp.h" |
#include "setjmp.h" |
|
|
{ |
{ |
int i; |
int i; |
unsigned char c,rc; |
unsigned char c,rc; |
|
extern int mpi_myid; |
|
|
|
#if MPI |
|
iofp[s1].s = s1; |
|
if ( mpi_myid == s1 ) { |
|
iofp[s1].in = 0; |
|
iofp[s1].out = 0; |
|
} else { |
|
iofp[s1].in = WSIO_open(s1,"r"); |
|
iofp[s1].out = WSIO_open(s1,"w"); |
|
} |
|
iofp[s1].conv = 0; |
|
iofp[s1].socket = 0; |
|
|
|
return s1; |
|
#else |
for ( i = 0; i < MAXIOFP; i++ ) |
for ( i = 0; i < MAXIOFP; i++ ) |
if ( !iofp[i].in ) |
if ( !iofp[i].in ) |
break; |
break; |
iofp[i].s = s1; |
iofp[i].s = s1; |
#if defined(VISUAL) || MPI |
#if defined(VISUAL) |
iofp[i].in = WSIO_open(s1,"r"); |
iofp[i].in = WSIO_open(s1,"r"); |
iofp[i].out = WSIO_open(s1,"w"); |
iofp[i].out = WSIO_open(s1,"w"); |
#else |
#else |
|
|
setbuffer(iofp[i].in,(char *)malloc(LBUFSIZ),LBUFSIZ); |
setbuffer(iofp[i].in,(char *)malloc(LBUFSIZ),LBUFSIZ); |
setbuffer(iofp[i].out,(char *)malloc(LBUFSIZ),LBUFSIZ); |
setbuffer(iofp[i].out,(char *)malloc(LBUFSIZ),LBUFSIZ); |
#endif |
#endif |
#if MPI |
|
iofp[i].conv = 0; |
|
iofp[i].socket = 0; |
|
#else |
|
if ( little_endian ) |
if ( little_endian ) |
c = 1; |
c = 1; |
else |
else |
|
|
strcpy(iofp[i].socket,af_sock); |
strcpy(iofp[i].socket,af_sock); |
} else |
} else |
iofp[i].socket = 0; |
iofp[i].socket = 0; |
#endif |
|
return i; |
return i; |
|
#endif |
} |
} |
|
|
#if defined(VISUAL) |
#if defined(VISUAL) |