sys/gio/gks/gclwk.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include	"gks.h"

# GCLWK -- Close workstation.

procedure gclwk (wkid)

int	wkid		# Workstation identifier
include	"gks.com"

begin
	call gclose (gp[wkid])
end