blob: 7d2b6cbfc89c7de16480462cdcb3b9b35ce91508 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
# CLCLOSE -- "Close" the CL files (shut down CLIO). Called by the IRAF Main
# upon process shutdown.
procedure clclose ()
int fd
begin
# Remove buffers for the standard streams.
do fd = 1, FIRST_FD-1
call frmbfs (fd)
end
|
