blob: 48f39de0e9c7f403eb472e88792a5f4cc0685bf4 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "gks.h"
# GOPKS -- Open GKS. In the GIO implementation, this routine sets the
# file to receive error output to STDERR and initializes all possible
# workstations to inactive. It also initializes the ASF array to GINDIV.
procedure gopks (errfil)
int errfil # Unit number for error output
int i
include "gks.com"
begin
# This procedure initializes the gk_status and gk_std variables.
do i = 1, NDEV
gk_status[i] = INACTIVE
gk_std = NULL
do i = 1, NASF
gk_asf[i] = GINDIV
end
|
