| version 1.17, 2002/10/03 03:37:46 |
version 1.18, 2002/10/03 07:12:30 |
|
|
| * 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/sio.c,v 1.16 2002/10/03 01:12:46 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/sio.c,v 1.17 2002/10/03 03:37:46 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include <setjmp.h> |
#include <setjmp.h> |
| Line 315 void free_iofp(int s) |
|
| Line 315 void free_iofp(int s) |
|
| r = &iofp[s]; |
r = &iofp[s]; |
| #if defined(VISUAL) |
#if defined(VISUAL) |
| if ( r->s ) close(r->s); |
if ( r->s ) close(r->s); |
| #elif !defined(MPI) |
#elif !MPI |
| if ( r->in ) fclose(r->in); |
if ( r->in ) fclose(r->in); |
| if ( r->out ) fclose(r->out); |
if ( r->out ) fclose(r->out); |
| if ( r->socket ) unlink(r->socket); |
if ( r->socket ) unlink(r->socket); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sio.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / io