unix/boot/spp/rpp/ratlibc/close.c


1
2
3
4
5
6
7
8
9
10

/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
 */

#include "ratdef.h"

void CLOSE(fd)
FINT	*fd;
{
	fclose(_fdtofile[*fd]);
}