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 /* Table of constant values */
16
17 static logical c_true = TRUE_;
18
19 /* ----------------------------------------------------------------------- */
20 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
21 /* ----------------------------------------------------------------------- */
gropn_0_(int n__,integer * iws)22 /* Subroutine */ int gropn_0_(int n__, integer *iws)
23 {
24 extern /* Subroutine */ int sgcls_(void), sgfrm_(void), grinit_(void),
25 sginit_(void), uminit_(void), usinit_(void), uuinit_(void),
26 sgistx_(char *, integer *, ftnlen), uzinit_(void), sglstx_(char *,
27 logical *, ftnlen);
28
29 /* / OPEN / */
30 switch(n__) {
31 case 1: goto L_grfrm;
32 case 2: goto L_grfig;
33 case 3: goto L_grcls;
34 }
35
36 sgistx_("IWS", iws, (ftnlen)3);
37 sginit_();
38 sglstx_("LCNTL", &c_true, (ftnlen)5);
39 return 0;
40 /* ----------------------------------------------------------------------- */
41
42 L_grfrm:
43 /* / NEW FRAME / */
44 sgfrm_();
45 grinit_();
46 usinit_();
47 uzinit_();
48 uminit_();
49 uuinit_();
50 return 0;
51 /* ----------------------------------------------------------------------- */
52
53 L_grfig:
54 /* / NEW FIGURE / */
55 grinit_();
56 usinit_();
57 uzinit_();
58 uminit_();
59 uuinit_();
60 return 0;
61 /* ----------------------------------------------------------------------- */
62
63 L_grcls:
64 /* / CLOSE / */
65 sgcls_();
66 return 0;
67 } /* gropn_ */
68
gropn_(integer * iws)69 /* Subroutine */ int gropn_(integer *iws)
70 {
71 return gropn_0_(0, iws);
72 }
73
grfrm_(void)74 /* Subroutine */ int grfrm_(void)
75 {
76 return gropn_0_(1, (integer *)0);
77 }
78
grfig_(void)79 /* Subroutine */ int grfig_(void)
80 {
81 return gropn_0_(2, (integer *)0);
82 }
83
grcls_(void)84 /* Subroutine */ int grcls_(void)
85 {
86 return gropn_0_(3, (integer *)0);
87 }
88
89