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