1*48511Sbostic /*- 2*48511Sbostic * Copyright (c) 1980, 1986 The Regents of the University of California. 3*48511Sbostic * All rights reserved. 4*48511Sbostic * 5*48511Sbostic * %sccs.include.proprietary.c% 629807Ssklower */ 729807Ssklower 829807Ssklower #ifndef lint 9*48511Sbostic static char sccsid[] = "@(#)close.c 6.2 (Berkeley) 04/22/91"; 10*48511Sbostic #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 */ 2229807Ssklower closepl() 2329807Ssklower { 2429807Ssklower if (!ingrnfile) return; 2529807Ssklower endvector(); 2629807Ssklower printf("-1\n"); 2729807Ssklower ingrnfile = 0; 2829807Ssklower } 29