blob: 17679f89d832c42f138fa2ec380dea3183190f64 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <fset.h>
include "gkt.h"
# GKT_CANCEL -- Cancel any buffered output.
procedure gkt_cancel (dummy)
int dummy # not used at present
include "gkt.com"
begin
if (g_kt == NULL)
return
# First we cancel any output in the FIO stream, then
# flush the nspp buffers. This might, of course,
# put something in the FIO stream, so we cancel again.
# note the Fortran escape for "flush"...spp has a reserved
# word of the same name.
call fseti (g_out, F_CANCEL, OK)
% call mcflsh
call fseti (g_out, F_CANCEL, OK)
call gkt_reset()
end
|
