#ifndef lintstatic char SccsId[] = " @(#)close.c	4.1	(ULTRIX)	7/2/90";#endif not(lint)/* * Modification History * * 	April-11-1989, Pradeep Chetal *	Added changes from 4.3Tahoe BSD for lots of new drivers *//* * Copyright (c) 1980, 1986 Regents of the University of California. * All rights reserved.  The Berkeley software License Agreement * specifies the terms and conditions for redistribution. */#ifndef lintstatic char sccsid[] = "@(#)close.c	6.1 (Berkeley) 8/29/86";#endif not lint#include "grnplot.h"/*--------------------------------------------------------- *	Closepl ends the gremlin file * *	Results:	None. * *	Side Effects: *--------------------------------------------------------- */closepl(){    if (!ingrnfile) return;    endvector();    printf("-1\n");    ingrnfile = 0;}