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 /* UESGYA / UESGYB */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
uesgya_0_(int n__,real * yp,integer * ny,real * uymin,real * uymax,logical * lsety)20 /* Subroutine */ int uesgya_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_ueqgya;
36 case 2: goto L_uesgyb;
37 case 3: goto L_ueqgyb;
38 case 4: goto L_uesgyz;
39 case 5: goto L_ueqgyz;
40 }
41
42 msgdmp_("M", "UESGYA", "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_ueqgya:
49 msgdmp_("M", "UEQGYA", "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_uesgyb:
56 msgdmp_("M", "UESGYB", "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_ueqgyb:
63 msgdmp_("M", "UEQGYB", "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_uesgyz:
70 msgdmp_("M", "UESGYZ", "THIS IS OLD INTERFACE - USE UWSGYZ !", (ftnlen)1,
71 (ftnlen)6, (ftnlen)36);
72 uwsgyz_(lsety);
73 return 0;
74 /* ----------------------------------------------------------------------- */
75
76 L_ueqgyz:
77 msgdmp_("M", "UEQGYZ", "THIS IS OLD INTERFACE - USE UWQGYZ !", (ftnlen)1,
78 (ftnlen)6, (ftnlen)36);
79 uwqgyz_(lsety);
80 return 0;
81 } /* uesgya_ */
82
uesgya_(real * yp,integer * ny)83 /* Subroutine */ int uesgya_(real *yp, integer *ny)
84 {
85 return uesgya_0_(0, yp, ny, (real *)0, (real *)0, (logical *)0);
86 }
87
ueqgya_(real * yp,integer * ny)88 /* Subroutine */ int ueqgya_(real *yp, integer *ny)
89 {
90 return uesgya_0_(1, yp, ny, (real *)0, (real *)0, (logical *)0);
91 }
92
uesgyb_(real * uymin,real * uymax,integer * ny)93 /* Subroutine */ int uesgyb_(real *uymin, real *uymax, integer *ny)
94 {
95 return uesgya_0_(2, (real *)0, ny, uymin, uymax, (logical *)0);
96 }
97
ueqgyb_(real * uymin,real * uymax,integer * ny)98 /* Subroutine */ int ueqgyb_(real *uymin, real *uymax, integer *ny)
99 {
100 return uesgya_0_(3, (real *)0, ny, uymin, uymax, (logical *)0);
101 }
102
uesgyz_(logical * lsety)103 /* Subroutine */ int uesgyz_(logical *lsety)
104 {
105 return uesgya_0_(4, (real *)0, (integer *)0, (real *)0, (real *)0, lsety);
106 }
107
ueqgyz_(logical * lsety)108 /* Subroutine */ int ueqgyz_(logical *lsety)
109 {
110 return uesgya_0_(5, (real *)0, (integer *)0, (real *)0, (real *)0, lsety);
111 }
112
113