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 /* UZFACT */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
uzfact_(real * rfact)20 /* Subroutine */ int uzfact_(real *rfact)
21 {
22 /* System generated locals */
23 real r__1;
24
25 /* Local variables */
26 static real rsizc1, rsizc2, rsizl1, rsizl2, rsizt1, rsizt2;
27 extern /* Subroutine */ int msgdmp_(char *, char *, char *, ftnlen,
28 ftnlen, ftnlen), uzrget_(char *, real *, ftnlen), uzrset_(char *,
29 real *, ftnlen);
30
31 if (*rfact <= 0.f) {
32 msgdmp_("E", "UZFACT", "FACTOR IS LESS THAN ZERO.", (ftnlen)1, (
33 ftnlen)6, (ftnlen)25);
34 }
35 uzrget_("RSIZET1", &rsizt1, (ftnlen)7);
36 uzrget_("RSIZET2", &rsizt2, (ftnlen)7);
37 uzrget_("RSIZEL1", &rsizl1, (ftnlen)7);
38 uzrget_("RSIZEL2", &rsizl2, (ftnlen)7);
39 uzrget_("RSIZEC1", &rsizc1, (ftnlen)7);
40 uzrget_("RSIZEC2", &rsizc2, (ftnlen)7);
41 r__1 = rsizt1 * *rfact;
42 uzrset_("RSIZET1", &r__1, (ftnlen)7);
43 r__1 = rsizt2 * *rfact;
44 uzrset_("RSIZET2", &r__1, (ftnlen)7);
45 r__1 = rsizl1 * *rfact;
46 uzrset_("RSIZEL1", &r__1, (ftnlen)7);
47 r__1 = rsizl2 * *rfact;
48 uzrset_("RSIZEL2", &r__1, (ftnlen)7);
49 r__1 = rsizc1 * *rfact;
50 uzrset_("RSIZEC1", &r__1, (ftnlen)7);
51 r__1 = rsizc2 * *rfact;
52 uzrset_("RSIZEC2", &r__1, (ftnlen)7);
53 return 0;
54 } /* uzfact_ */
55
56