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 /* UDSGYA / UDSGYB */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
udsgya_0_(int n__,real * yp,integer * ny,real * uymin,real * uymax,logical * lsety)20 /* Subroutine */ int udsgya_0_(int n__, real *yp, integer *ny, real *uymin,
21 real *uymax, logical *lsety)
22 {
23 extern /* Subroutine */ int msgdmp_(char *, char *, char *, ftnlen,
24 ftnlen, ftnlen), uwqgya_(real *, integer *), uwqgyb_(real *, real
25 *, integer *), uwsgya_(real *, integer *), uwsgyb_(real *, real *,
26 integer *), uwqgyz_(logical *), uwsgyz_(logical *);
27
28 /* Parameter adjustments */
29 if (yp) {
30 --yp;
31 }
32
33 /* Function Body */
34 switch(n__) {
35 case 1: goto L_udqgya;
36 case 2: goto L_udsgyb;
37 case 3: goto L_udqgyb;
38 case 4: goto L_udsgyz;
39 case 5: goto L_udqgyz;
40 }
41
42 msgdmp_("M", "UDSGYA", "THIS IS OLD INTERFACE - USE UWSGYA !", (ftnlen)1,
43 (ftnlen)6, (ftnlen)36);
44 uwsgya_(&yp[1], ny);
45 return 0;
46 /* ----------------------------------------------------------------------- */
47
48 L_udqgya:
49 msgdmp_("M", "UDQGYA", "THIS IS OLD INTERFACE - USE UWQGYA !", (ftnlen)1,
50 (ftnlen)6, (ftnlen)36);
51 uwqgya_(&yp[1], ny);
52 return 0;
53 /* ----------------------------------------------------------------------- */
54
55 L_udsgyb:
56 msgdmp_("M", "UDSGYB", "THIS IS OLD INTERFACE - USE UWSGYB !", (ftnlen)1,
57 (ftnlen)6, (ftnlen)36);
58 uwsgyb_(uymin, uymax, ny);
59 return 0;
60 /* ----------------------------------------------------------------------- */
61
62 L_udqgyb:
63 msgdmp_("M", "UDQGYB", "THIS IS OLD INTERFACE - USE UWQGYB !", (ftnlen)1,
64 (ftnlen)6, (ftnlen)36);
65 uwqgyb_(uymin, uymax, ny);
66 return 0;
67 /* ----------------------------------------------------------------------- */
68
69 L_udsgyz:
70 msgdmp_("M", "UDSGYZ", "THIS IS OLD INTERFACE - USE UWSGYZ !", (ftnlen)1,
71 (ftnlen)6, (ftnlen)36);
72 uwsgyz_(lsety);
73 return 0;
74 /* ----------------------------------------------------------------------- */
75
76 L_udqgyz:
77 msgdmp_("M", "UDQGYZ", "THIS IS OLD INTERFACE - USE UWQGYZ !", (ftnlen)1,
78 (ftnlen)6, (ftnlen)36);
79 uwqgyz_(lsety);
80 return 0;
81 } /* udsgya_ */
82
udsgya_(real * yp,integer * ny)83 /* Subroutine */ int udsgya_(real *yp, integer *ny)
84 {
85 return udsgya_0_(0, yp, ny, (real *)0, (real *)0, (logical *)0);
86 }
87
udqgya_(real * yp,integer * ny)88 /* Subroutine */ int udqgya_(real *yp, integer *ny)
89 {
90 return udsgya_0_(1, yp, ny, (real *)0, (real *)0, (logical *)0);
91 }
92
udsgyb_(real * uymin,real * uymax,integer * ny)93 /* Subroutine */ int udsgyb_(real *uymin, real *uymax, integer *ny)
94 {
95 return udsgya_0_(2, (real *)0, ny, uymin, uymax, (logical *)0);
96 }
97
udqgyb_(real * uymin,real * uymax,integer * ny)98 /* Subroutine */ int udqgyb_(real *uymin, real *uymax, integer *ny)
99 {
100 return udsgya_0_(3, (real *)0, ny, uymin, uymax, (logical *)0);
101 }
102
udsgyz_(logical * lsety)103 /* Subroutine */ int udsgyz_(logical *lsety)
104 {
105 return udsgya_0_(4, (real *)0, (integer *)0, (real *)0, (real *)0, lsety);
106 }
107
udqgyz_(logical * lsety)108 /* Subroutine */ int udqgyz_(logical *lsety)
109 {
110 return udsgya_0_(5, (real *)0, (integer *)0, (real *)0, (real *)0, lsety);
111 }
112
113