blob: b1332b54dca2338e2834a8bd007f335c166000d4 (
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 <gset.h>
include "gks.h"
# GQPMI -- Inquire Polymarker index.
procedure gqpmi (errind, index)
real index # Polymarker index - returned value.
int errind # Error indicator
include "gks.com"
begin
errind = 0
index = 1.0
end
|
