blob: 27889c7cb1ab049733ba4443672eb64bcfa8f99b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "gkt.h"
# GKT_CLOSEWS -- Close the named workstation. Flush the output.
# The spool file is closed only on the next plot or at gktclose time.
# If the spool file is closed here, APPEND mode would not work.
procedure gkt_closews (devname, n)
short devname[ARB] # device name (not used)
int n # length of device name
include "gkt.com"
begin
call gkt_flush (0)
end
|
