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 /* PLOT ROUTINE ON RC (SOLID LINE) */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
szoplz_0_(int n__,real * rx,real * ry)20 /* Subroutine */ int szoplz_0_(int n__, real *rx, real *ry)
21 {
22 static real wx, wy;
23 extern /* Subroutine */ int swgcls_(void), swgopn_(void), swgplt_(real *,
24 real *), swgmov_(real *, real *), stfwtr_(real *, real *, real *,
25 real *);
26
27 switch(n__) {
28 case 1: goto L_szmvlz;
29 case 2: goto L_szpllz;
30 case 3: goto L_szcllz;
31 }
32
33 swgopn_();
34 return 0;
35 /* ----------------------------------------------------------------------- */
36
37 L_szmvlz:
38 stfwtr_(rx, ry, &wx, &wy);
39 swgmov_(&wx, &wy);
40 return 0;
41 /* ----------------------------------------------------------------------- */
42
43 L_szpllz:
44 stfwtr_(rx, ry, &wx, &wy);
45 swgplt_(&wx, &wy);
46 return 0;
47 /* ----------------------------------------------------------------------- */
48
49 L_szcllz:
50 swgcls_();
51 return 0;
52 } /* szoplz_ */
53
szoplz_(void)54 /* Subroutine */ int szoplz_(void)
55 {
56 return szoplz_0_(0, (real *)0, (real *)0);
57 }
58
szmvlz_(real * rx,real * ry)59 /* Subroutine */ int szmvlz_(real *rx, real *ry)
60 {
61 return szoplz_0_(1, rx, ry);
62 }
63
szpllz_(real * rx,real * ry)64 /* Subroutine */ int szpllz_(real *rx, real *ry)
65 {
66 return szoplz_0_(2, rx, ry);
67 }
68
szcllz_(void)69 /* Subroutine */ int szcllz_(void)
70 {
71 return szoplz_0_(3, (real *)0, (real *)0);
72 }
73
74