148511Sbostic /*- 2*61389Sbostic * Copyright (c) 1980, 1986, 1993 3*61389Sbostic * The Regents of the University of California. All rights reserved. 448511Sbostic * 548511Sbostic * %sccs.include.proprietary.c% 629807Ssklower */ 729807Ssklower 829807Ssklower #ifndef lint 9*61389Sbostic static char sccsid[] = "@(#)close.c 8.1 (Berkeley) 06/04/93"; 1048511Sbostic #endif /* not lint */ 1129807Ssklower 1229807Ssklower #include "grnplot.h" 1329807Ssklower 1429807Ssklower /*--------------------------------------------------------- 1529807Ssklower * Closepl ends the gremlin file 1629807Ssklower * 1729807Ssklower * Results: None. 1829807Ssklower * 1929807Ssklower * Side Effects: 2029807Ssklower *--------------------------------------------------------- 2129807Ssklower */ closepl()2229807Ssklowerclosepl() 2329807Ssklower { 2429807Ssklower if (!ingrnfile) return; 2529807Ssklower endvector(); 2629807Ssklower printf("-1\n"); 2729807Ssklower ingrnfile = 0; 2829807Ssklower } 29