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 /* IUFOPN */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
iufopn_(void)20 integer iufopn_(void)
21 {
22 /* System generated locals */
23 integer ret_val;
24 inlist ioin__1;
25
26 /* Builtin functions */
27 integer f_inqu(inlist *);
28
29 /* Local variables */
30 static integer iu;
31 static logical lopen;
32 extern /* Subroutine */ int msgdmp_(char *, char *, char *, ftnlen,
33 ftnlen, ftnlen);
34 static logical lexist;
35
36 for (iu = 1; iu <= 99; ++iu) {
37 ioin__1.inerr = 0;
38 ioin__1.inunit = iu;
39 ioin__1.infile = 0;
40 ioin__1.inex = &lexist;
41 ioin__1.inopen = &lopen;
42 ioin__1.innum = 0;
43 ioin__1.innamed = 0;
44 ioin__1.inname = 0;
45 ioin__1.inacc = 0;
46 ioin__1.inseq = 0;
47 ioin__1.indir = 0;
48 ioin__1.infmt = 0;
49 ioin__1.inform = 0;
50 ioin__1.inunf = 0;
51 ioin__1.inrecl = 0;
52 ioin__1.innrec = 0;
53 ioin__1.inblank = 0;
54 f_inqu(&ioin__1);
55 /* / THE FOLLOWING 1 LINE IS JUST FOR CONVENIENCE / */
56 lexist = TRUE_;
57 if (lexist && ! lopen) {
58 ret_val = iu;
59 return ret_val;
60 }
61 /* L10: */
62 }
63 msgdmp_("E", "IUFOPN", "THERE IS NO UNIT TO BE OPENED.", (ftnlen)1, (
64 ftnlen)6, (ftnlen)30);
65 return ret_val;
66 } /* iufopn_ */
67
68