/*
 * PCN System
 * Author:      Steve Tuecke
 *              Argonne National Laboratory
 *
 * Please see the DISCLAIMER file in the top level directory of the
 * distribution regarding the provisions under which this software
 * is distributed.
 *
 * stdio_fclose.c
 */

#include "stdio_internal.h"

void _p_stdio_fclose(fp, status) 
FILE **fp;
int_t *status;
{ 
    *status = (int_t) fclose(*fp); 
}