/*
 * 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_fopen.c
 */

#include "stdio_internal.h"

void _p_stdio_fopen(filename, mode, fp, status)
char_t *filename;
char_t *mode;
FILE **fp;
int_t *status;
{
    *fp = fopen((char *) filename, (char *) mode);
    if (*fp == (FILE *) NULL)
	*status = (int_t) errno;
    else
	*status = (int_t) 0;
}