1 /* -- translated by f2c (version 20100827).
2 You must link the resulting object file with libf2c:
3 on Microsoft Windows system, link with libf2c.lib;
4 on Linux or Unix systems, link with .../path/to/libf2c.a -lm
5 or, if you install libf2c.a in a standard place, with -lf2c -lm
6 -- in that order, at the end of the command line, as in
7 cc *.o -lf2c -lm
8 Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
9
10 http://www.netlib.org/f2c/libf2c.zip
11 */
12
13 #include "libtinyf2c.h"
14
15 /* ----------------------------------------------------------------------- */
16 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
17 /* ----------------------------------------------------------------------- */
sgpmzr_(integer * n,real * rpx,real * rpy,integer * itype,integer * index,real * rsize)18 /* Subroutine */ int sgpmzr_(integer *n, real *rpx, real *rpy, integer *itype,
19 integer *index, real *rsize)
20 {
21 extern /* Subroutine */ int msgdmp_(char *, char *, char *, ftnlen,
22 ftnlen, ftnlen), szpmcl_(void), szpmop_(integer *, integer *,
23 real *), szpmzr_(integer *, real *, real *);
24
25 /* Parameter adjustments */
26 --rpy;
27 --rpx;
28
29 /* Function Body */
30 if (*n < 1) {
31 msgdmp_("E", "SGPMZR", "NUMBER OF POINTS IS LESS THAN 1.", (ftnlen)1,
32 (ftnlen)6, (ftnlen)32);
33 }
34 if (*itype == 0) {
35 msgdmp_("M", "SGPMZR", "MARKER TYPE IS 0 / DO NOTHING.", (ftnlen)1, (
36 ftnlen)6, (ftnlen)30);
37 return 0;
38 }
39 if (*index == 0) {
40 msgdmp_("M", "SGPMZR", "POLYMARKER INDEX IS 0 / DO NOTHING.", (ftnlen)
41 1, (ftnlen)6, (ftnlen)35);
42 return 0;
43 }
44 if (*index < 0) {
45 msgdmp_("E", "SGPMZR", "POLYMARKER INDEX IS LESS THAN 0.", (ftnlen)1,
46 (ftnlen)6, (ftnlen)32);
47 }
48 if (*rsize == 0.f) {
49 msgdmp_("M", "SGPMZR", "MARKER SIZE IS 0 / DO NOTHING.", (ftnlen)1, (
50 ftnlen)6, (ftnlen)30);
51 return 0;
52 }
53 if (*rsize < 0.f) {
54 msgdmp_("E", "SGPMZR", "MARKER SIZE IS LESS THAN ZERO.", (ftnlen)1, (
55 ftnlen)6, (ftnlen)30);
56 }
57 szpmop_(itype, index, rsize);
58 szpmzr_(n, &rpx[1], &rpy[1]);
59 szpmcl_();
60 return 0;
61 } /* sgpmzr_ */
62
63