1*29807Ssklower /* 2*29807Ssklower * Copyright (c) 1980, 1986 Regents of the University of California. 3*29807Ssklower * All rights reserved. The Berkeley software License Agreement 4*29807Ssklower * specifies the terms and conditions for redistribution. 5*29807Ssklower */ 6*29807Ssklower 7*29807Ssklower #ifndef lint 8*29807Ssklower static char sccsid[] = "@(#)close.c 6.1 (Berkeley) 08/29/86"; 9*29807Ssklower #endif not lint 10*29807Ssklower 11*29807Ssklower 12*29807Ssklower #include "grnplot.h" 13*29807Ssklower 14*29807Ssklower /*--------------------------------------------------------- 15*29807Ssklower * Closepl ends the gremlin file 16*29807Ssklower * 17*29807Ssklower * Results: None. 18*29807Ssklower * 19*29807Ssklower * Side Effects: 20*29807Ssklower *--------------------------------------------------------- 21*29807Ssklower */ 22*29807Ssklower closepl() 23*29807Ssklower { 24*29807Ssklower if (!ingrnfile) return; 25*29807Ssklower endvector(); 26*29807Ssklower printf("-1\n"); 27*29807Ssklower ingrnfile = 0; 28*29807Ssklower } 29