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 integer c__1 = 1;
18 static logical c_false = FALSE_;
19 static integer c__2 = 2;
20 static integer c__3 = 3;
21
22 /* --------------------------------------------------------------- */
uipcmp_(real * xmin,real * xmax,real * ymin,real * ymax,char * cpos,ftnlen cpos_len)23 /* Subroutine */ int uipcmp_(real *xmin, real *xmax, real *ymin, real *ymax,
24 char *cpos, ftnlen cpos_len)
25 {
26 static real u[4] /* was [2][2] */, v[4] /* was [2][2] */, u1, u2, v1,
27 v2;
28 static logical lem, lcx, lcy;
29 extern /* Subroutine */ int grfig_(void), uipda2_(real *, real *, integer
30 *, integer *, integer *), uiqcr2_(real *, real *, real *, real *),
31 uilget_(char *, logical *, ftnlen), sgswnd_(real *, real *, real
32 *, real *), uilset_(char *, logical *, ftnlen), usdaxs_(void),
33 sgstrf_(void), uwsgxb_(real *, real *, integer *), sgstrn_(
34 integer *), uwsgyb_(real *, real *, integer *), sgsvpt_(real *,
35 real *, real *, real *), slpvpr_(integer *);
36
37 uiqcr2_(&u1, &u2, &v1, &v2);
38 u[0] = u1;
39 u[2] = u1;
40 u[1] = u2;
41 u[3] = u2;
42 v[0] = v1;
43 v[2] = v2;
44 v[1] = v1;
45 v[3] = v2;
46 grfig_();
47 sgstrn_(&c__1);
48 sgsvpt_(xmin, xmax, ymin, ymax);
49 sgswnd_(&u1, &u2, &v1, &v2);
50 sgstrf_();
51 uilget_("CELL_MODE_X", &lcx, (ftnlen)11);
52 uilget_("CELL_MODE_Y", &lcy, (ftnlen)11);
53 uilget_("EMBOSS ", &lem, (ftnlen)11);
54 uilset_("CELL_MODE_X", &c_false, (ftnlen)11);
55 uilset_("CELL_MODE_Y", &c_false, (ftnlen)11);
56 uilset_("EMBOSS ", &c_false, (ftnlen)11);
57 uwsgxb_(&u1, &u2, &c__2);
58 uwsgyb_(&v1, &v2, &c__2);
59 uipda2_(u, v, &c__2, &c__2, &c__2);
60 slpvpr_(&c__3);
61 usdaxs_();
62 uilset_("CELL_MODE_X", &lcx, (ftnlen)11);
63 uilset_("CELL_MODE_Y", &lcy, (ftnlen)11);
64 uilset_("EMBOSS ", &lem, (ftnlen)11);
65 return 0;
66 } /* uipcmp_ */
67
68