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
19 /* ----------------------------------------------------------------------- */
20 /* UZIGET / UZISET / UZISTX */
21 /* ----------------------------------------------------------------------- */
22 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
23 /* ----------------------------------------------------------------------- */
uziget_0_(int n__,char * cp,integer * ipara,ftnlen cp_len)24 /* Subroutine */ int uziget_0_(int n__, char *cp, integer *ipara, ftnlen
25 cp_len)
26 {
27 static char cl[40];
28 static integer ip;
29 static char cx[8];
30 static integer idx;
31 extern /* Subroutine */ int rliget_(char *, integer *, integer *, ftnlen),
32 rtiget_(char *, char *, integer *, integer *, ftnlen, ftnlen),
33 uziqid_(char *, integer *, ftnlen), uziqcl_(integer *, char *,
34 ftnlen), uziqcp_(integer *, char *, ftnlen), uziqvl_(integer *,
35 integer *), uzisvl_(integer *, integer *);
36
37 switch(n__) {
38 case 1: goto L_uziset;
39 case 2: goto L_uzistx;
40 }
41
42 uziqid_(cp, &idx, cp_len);
43 uziqvl_(&idx, ipara);
44 return 0;
45 /* ----------------------------------------------------------------------- */
46
47 L_uziset:
48 uziqid_(cp, &idx, cp_len);
49 uzisvl_(&idx, ipara);
50 return 0;
51 /* ----------------------------------------------------------------------- */
52
53 L_uzistx:
54 ip = *ipara;
55 uziqid_(cp, &idx, cp_len);
56 /* / SHORT NAME / */
57 uziqcp_(&idx, cx, (ftnlen)8);
58 rtiget_("UZ", cx, &ip, &c__1, (ftnlen)2, (ftnlen)8);
59 /* / LONG NAME / */
60 uziqcl_(&idx, cl, (ftnlen)40);
61 rliget_(cl, &ip, &c__1, (ftnlen)40);
62 uzisvl_(&idx, &ip);
63 return 0;
64 } /* uziget_ */
65
uziget_(char * cp,integer * ipara,ftnlen cp_len)66 /* Subroutine */ int uziget_(char *cp, integer *ipara, ftnlen cp_len)
67 {
68 return uziget_0_(0, cp, ipara, cp_len);
69 }
70
uziset_(char * cp,integer * ipara,ftnlen cp_len)71 /* Subroutine */ int uziset_(char *cp, integer *ipara, ftnlen cp_len)
72 {
73 return uziget_0_(1, cp, ipara, cp_len);
74 }
75
uzistx_(char * cp,integer * ipara,ftnlen cp_len)76 /* Subroutine */ int uzistx_(char *cp, integer *ipara, ftnlen cp_len)
77 {
78 return uziget_0_(2, cp, ipara, cp_len);
79 }
80
81