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 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
17 /* ----------------------------------------------------------------------- */
uusfrt_0_(int n__,integer * itype,integer * index)18 /* Subroutine */ int uusfrt_0_(int n__, integer *itype, integer *index)
19 {
20 /* Initialized data */
21
22 static integer itypez = 1;
23 static integer indexz = 1;
24
25 switch(n__) {
26 case 1: goto L_uuqfrt;
27 case 2: goto L_uusfri;
28 case 3: goto L_uuqfri;
29 }
30
31 itypez = *itype;
32 return 0;
33 /* ----------------------------------------------------------------------- */
34
35 L_uuqfrt:
36 *itype = itypez;
37 return 0;
38 /* ----------------------------------------------------------------------- */
39
40 L_uusfri:
41 indexz = *index;
42 return 0;
43 /* ----------------------------------------------------------------------- */
44
45 L_uuqfri:
46 *index = indexz;
47 return 0;
48 } /* uusfrt_ */
49
uusfrt_(integer * itype)50 /* Subroutine */ int uusfrt_(integer *itype)
51 {
52 return uusfrt_0_(0, itype, (integer *)0);
53 }
54
uuqfrt_(integer * itype)55 /* Subroutine */ int uuqfrt_(integer *itype)
56 {
57 return uusfrt_0_(1, itype, (integer *)0);
58 }
59
uusfri_(integer * index)60 /* Subroutine */ int uusfri_(integer *index)
61 {
62 return uusfrt_0_(2, (integer *)0, index);
63 }
64
uuqfri_(integer * index)65 /* Subroutine */ int uuqfri_(integer *index)
66 {
67 return uusfrt_0_(3, (integer *)0, index);
68 }
69
70