
/* $Id: Pvmfcatchout.c,v 1.1 1997/06/27 16:14:45 pvmsrc Exp $ */

#include <stdio.h>
#ifdef WIN32
#include "..\..\include\pvm3.h"
#include "..\..\src\pvmwin.h"
#else 
#include "pvm3.h"
#endif

#include "pvm_consts.h"

void /*__stdcall*/ __fortran
PVMFCATCHOUT (yesno, info)
	int *yesno, *info;
{
	*info = pvm_catchout(*yesno ? stdout : 0);
}

