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 /* UZPSAV / UZPRST */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
uzpsav_0_(int n__)20 /* Subroutine */ int uzpsav_0_(int n__)
21 {
22 /* System generated locals */
23 olist o__1;
24 alist al__1;
25
26 /* Builtin functions */
27 integer f_open(olist *), f_rew(alist *);
28
29 /* Local variables */
30 static integer iu;
31 extern integer iufopn_(void);
32 extern /* Subroutine */ int uzcsav_(integer *), uzisav_(integer *),
33 uzlsav_(integer *), uzrsav_(integer *), uzcrst_(integer *),
34 uzirst_(integer *), uzlrst_(integer *), uzrrst_(integer *);
35
36 switch(n__) {
37 case 1: goto L_uzprst;
38 }
39
40 iu = iufopn_();
41 o__1.oerr = 0;
42 o__1.ounit = iu;
43 o__1.ofnm = 0;
44 o__1.orl = 0;
45 o__1.osta = "SCRATCH";
46 o__1.oacc = 0;
47 o__1.ofm = "UNFORMATTED";
48 o__1.oblnk = 0;
49 f_open(&o__1);
50 al__1.aerr = 0;
51 al__1.aunit = iu;
52 f_rew(&al__1);
53 uzcsav_(&iu);
54 uzisav_(&iu);
55 uzlsav_(&iu);
56 uzrsav_(&iu);
57 al__1.aerr = 0;
58 al__1.aunit = iu;
59 f_rew(&al__1);
60 return 0;
61 /* ----------------------------------------------------------------------- */
62
63 L_uzprst:
64 uzcrst_(&iu);
65 uzirst_(&iu);
66 uzlrst_(&iu);
67 uzrrst_(&iu);
68 al__1.aerr = 0;
69 al__1.aunit = iu;
70 f_rew(&al__1);
71 return 0;
72 } /* uzpsav_ */
73
uzpsav_(void)74 /* Subroutine */ int uzpsav_(void)
75 {
76 return uzpsav_0_(0);
77 }
78
uzprst_(void)79 /* Subroutine */ int uzprst_(void)
80 {
81 return uzpsav_0_(1);
82 }
83
84