OpenXM_contrib2/asir2000/io/sio.c - diff

Return to sio.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

version 1.16, 2002/10/03 01:12:46

version 1.17, 2002/10/03 03:37:46

Line 44

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/io/sio.c,v 1.15 2001/12/27 04:07:15 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/io/sio.c,v 1.16 2002/10/03 01:12:46 noro Exp $

#include "ca.h"

#include <setjmp.h>

Line 313 void free_iofp(int s)

struct IOFP *r;

r = &iofp[s];

#if !defined(VISUAL)

#if defined(VISUAL)

if ( r->in )

if ( r->s ) close(r->s);

fclose(r->in);

#elif !defined(MPI)

if ( r->out )

if ( r->in ) fclose(r->in);

fclose(r->out);

if ( r->out ) fclose(r->out);

if ( r->socket )

if ( r->socket ) unlink(r->socket);

unlink(r->socket);

r->in = r->out = 0; r->s = 0;

#endif

r->in = r->out = 0; r->s = 0;

}

#define LBUFSIZ BUFSIZ*10