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__2 = 2;
18 static integer c__1 = 1;
19 
20 /* ----------------------------------------------------------------------- */
21 /*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
22 /* ----------------------------------------------------------------------- */
fcpack_0_(int n__,char * clx,integer * iou,logical * leol,char * cdsn,integer * nrl,char * cact,integer * icon,integer * nrec,char * cbuf,integer * ibuf,ftnlen clx_len,ftnlen cdsn_len,ftnlen cact_len,ftnlen cbuf_len)23 /* Subroutine */ int fcpack_0_(int n__, char *clx, integer *iou, logical *
24 	leol, char *cdsn, integer *nrl, char *cact, integer *icon, integer *
25 	nrec, char *cbuf, integer *ibuf, ftnlen clx_len, ftnlen cdsn_len,
26 	ftnlen cact_len, ftnlen cbuf_len)
27 {
28     /* Initialized data */
29 
30     static integer ilz[4]	/* was [2][2] */ = { 10,0,13,10 };
31     static logical lslfc = FALSE_;
32     static logical lseol = FALSE_;
33     static logical le[99] = { FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
34 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
35 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
36 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
37 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
38 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
39 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
40 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
41 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
42 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
43 	    FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,FALSE_,
44 	    FALSE_,FALSE_,FALSE_ };
45     static char cs[1*99] = "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C"
46 	    "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C"
47 	    "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C"
48 	    "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C"
49 	    "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C"
50 	    "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C" "C"
51 	    "C" "C" "C" "C" "C" "C" "C";
52 
53     /* System generated locals */
54     address a__1[2];
55     integer i__1[2], i__2;
56     char ch__1[1], ch__2[1];
57     olist o__1;
58     cllist cl__1;
59     inlist ioin__1;
60 
61     /* Builtin functions */
62     /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen), s_cat(char *,
63 	     char **, integer *, integer *, ftnlen);
64     integer f_inqu(inlist *), f_open(olist *), f_clos(cllist *), s_rdue(
65 	    cilist *), do_uio(integer *, char *, ftnlen), e_rdue(void), s_cmp(
66 	    char *, char *, ftnlen, ftnlen), s_wdue(cilist *), e_wdue(void);
67 
68     /* Local variables */
69     static integer n;
70     static char cl[2];
71     static integer na, nl;
72     static char cz[1];
73     static integer nr[99], nz[99];
74     static char cll[2*2], clr[2];
75     static integer ios, nlx;
76     extern integer lenc_(char *, ftnlen);
77     static integer nclx;
78     static logical lchng;
79     static integer nrecl;
80     extern logical lchreq_(char *, char *, ftnlen, ftnlen);
81     extern /* Subroutine */ int msgdmp_(char *, char *, char *, ftnlen,
82 	    ftnlen, ftnlen);
83     static logical lexist;
84 
85     /* Fortran I/O blocks */
86     static cilist io___15 = { 1, 0, 1, 0, 0 };
87     static cilist io___21 = { 1, 0, 1, 0, 0 };
88     static cilist io___22 = { 1, 0, 0, 0, 0 };
89     static cilist io___23 = { 1, 0, 0, 0, 0 };
90     static cilist io___25 = { 1, 0, 1, 0, 0 };
91     static cilist io___26 = { 1, 0, 0, 0, 0 };
92 
93 
94     /* Parameter adjustments */
95     if (ibuf) {
96 	--ibuf;
97 	}
98 
99     /* Function Body */
100     switch(n__) {
101 	case 1: goto L_fcslfc;
102 	case 2: goto L_fcleol;
103 	case 3: goto L_fcopen;
104 	case 4: goto L_fcclos;
105 	case 5: goto L_fcnrec;
106 	case 6: goto L_fcgetr;
107 	case 7: goto L_fcputr;
108 	case 8: goto L_fcgets;
109 	case 9: goto L_fcputs;
110 	case 10: goto L_fcrwnd;
111 	}
112 
113 /*     HEX. DECIMAL   '0A00', '0D0A' */
114     return 0;
115 /* ----------------------------------------------------------------------- */
116 
117 L_fcslfc:
118     if (lslfc) {
119 	msgdmp_("E", "FCSLFC", "FCSLFC SHOULD BE CALLED BEFORE FCLEOL.", (
120 		ftnlen)1, (ftnlen)6, (ftnlen)38);
121     }
122     nclx = lenc_(clx, clx_len);
123     if (! (nclx <= 2)) {
124 	msgdmp_("E", "FCSLFC", "LENGTH OF <LF> CHARACTER SHOULD BE 1 OR 2.", (
125 		ftnlen)1, (ftnlen)6, (ftnlen)42);
126     }
127     s_copy(cl, clx, (ftnlen)2, nclx);
128     lslfc = TRUE_;
129     return 0;
130 /* ----------------------------------------------------------------------- */
131 
132 L_fcleol:
133     if (lchreq_(cs + (*iou - 1), "C", (ftnlen)1, (ftnlen)1)) {
134 	le[*iou - 1] = *leol;
135 	if (! lseol) {
136 	    for (n = 1; n <= 2; ++n) {
137 /* Writing concatenation */
138 		*(unsigned char *)&ch__1[0] = ilz[(n << 1) - 2];
139 		i__1[0] = 1, a__1[0] = ch__1;
140 		*(unsigned char *)&ch__2[0] = ilz[(n << 1) - 1];
141 		i__1[1] = 1, a__1[1] = ch__2;
142 		s_cat(cll + (n - 1 << 1), a__1, i__1, &c__2, (ftnlen)2);
143 /* L5: */
144 	    }
145 	    lseol = TRUE_;
146 	}
147 	if (! lslfc) {
148 	    s_copy(cl, cll, (ftnlen)2, (ftnlen)2);
149 	    lslfc = TRUE_;
150 	}
151 	nl = lenc_(cl, (ftnlen)2);
152     } else {
153 	msgdmp_("E", "FCLEOL", "FCLEOL SHOULD BE CALLED BEFORE FCOPEN.", (
154 		ftnlen)1, (ftnlen)6, (ftnlen)38);
155     }
156     return 0;
157 /* ----------------------------------------------------------------------- */
158 
159 L_fcopen:
160     if (! (lchreq_(cact, "R", (ftnlen)1, (ftnlen)1) || lchreq_(cact, "W", (
161 	    ftnlen)1, (ftnlen)1))) {
162 	msgdmp_("E", "FCOPEN", "ACCESS MODE SHOULD BE 'R' OR 'W'.", (ftnlen)1,
163 		 (ftnlen)6, (ftnlen)33);
164     } else {
165 	*(unsigned char *)&cs[*iou - 1] = *(unsigned char *)cact;
166     }
167     ioin__1.inerr = 0;
168     ioin__1.infilen = cdsn_len;
169     ioin__1.infile = cdsn;
170     ioin__1.inex = &lexist;
171     ioin__1.inopen = 0;
172     ioin__1.innum = 0;
173     ioin__1.innamed = 0;
174     ioin__1.inname = 0;
175     ioin__1.inacc = 0;
176     ioin__1.inseq = 0;
177     ioin__1.indir = 0;
178     ioin__1.infmt = 0;
179     ioin__1.inform = 0;
180     ioin__1.inunf = 0;
181     ioin__1.inrecl = 0;
182     ioin__1.innrec = 0;
183     ioin__1.inblank = 0;
184     f_inqu(&ioin__1);
185     if (lchreq_(cact, "R", (ftnlen)1, (ftnlen)1)) {
186 	if (! lexist) {
187 	    msgdmp_("E", "FCOPEN", "FILE DOES NOT EXIST.", (ftnlen)1, (ftnlen)
188 		    6, (ftnlen)20);
189 	}
190     } else if (lchreq_(cact, "W", (ftnlen)1, (ftnlen)1)) {
191 	if (lexist) {
192 	    o__1.oerr = 0;
193 	    o__1.ounit = *iou;
194 	    o__1.ofnmlen = cdsn_len;
195 	    o__1.ofnm = cdsn;
196 	    o__1.orl = 0;
197 	    o__1.osta = 0;
198 	    o__1.oacc = 0;
199 	    o__1.ofm = 0;
200 	    o__1.oblnk = 0;
201 	    f_open(&o__1);
202 	    cl__1.cerr = 0;
203 	    cl__1.cunit = *iou;
204 	    cl__1.csta = "DELETE";
205 	    f_clos(&cl__1);
206 	}
207     }
208     nr[*iou - 1] = 1;
209     nz[*iou - 1] = *nrl;
210     if (le[*iou - 1]) {
211 	if (lchreq_(cact, "R", (ftnlen)1, (ftnlen)1)) {
212 	    o__1.oerr = 0;
213 	    o__1.ounit = *iou;
214 	    o__1.ofnmlen = cdsn_len;
215 	    o__1.ofnm = cdsn;
216 	    o__1.orl = 1;
217 	    o__1.osta = 0;
218 	    o__1.oacc = "DIRECT";
219 	    o__1.ofm = "UNFORMATTED";
220 	    o__1.oblnk = 0;
221 	    f_open(&o__1);
222 /*         REWIND(IOU) */
223 	    for (n = 1; n <= 2; ++n) {
224 		io___15.ciunit = *iou;
225 		io___15.cirec = *nrl + n;
226 		ios = s_rdue(&io___15);
227 		if (ios != 0) {
228 		    goto L100001;
229 		}
230 		ios = do_uio(&c__1, cz, (ftnlen)1);
231 		if (ios != 0) {
232 		    goto L100001;
233 		}
234 		ios = e_rdue();
235 L100001:
236 		if (ios == 0) {
237 		    *(unsigned char *)&clr[n - 1] = *(unsigned char *)cz;
238 		} else {
239 		    if (n == 1) {
240 			msgdmp_("E", "FCOPEN", "RECORD LENGTH IS WRONG.", (
241 				ftnlen)1, (ftnlen)6, (ftnlen)23);
242 		    } else {
243 			*(unsigned char *)&clr[n - 1] = '\0';
244 		    }
245 		}
246 /* L10: */
247 	    }
248 	    if (s_cmp(clr, cl, nl, nl) == 0) {
249 		nrecl = *nrl + nl;
250 	    } else {
251 		lchng = FALSE_;
252 		for (n = 1; n <= 2; ++n) {
253 		    nlx = lenc_(cll + (n - 1 << 1), (ftnlen)2);
254 		    if (s_cmp(clr, cll + (n - 1 << 1), nlx, nlx) == 0) {
255 			msgdmp_("W", "FCOPEN", "<LF> CHARACTER IS NOT CONSIS"
256 				"TENT, BUT ACCEPTED.", (ftnlen)1, (ftnlen)6, (
257 				ftnlen)47);
258 			nrecl = *nrl + nlx;
259 			lchng = TRUE_;
260 		    }
261 /* L20: */
262 		}
263 		if (! lchng) {
264 		    msgdmp_("E", "FCOPEN", "<LF> CHARACTER IS NOT FOUND.", (
265 			    ftnlen)1, (ftnlen)6, (ftnlen)28);
266 		}
267 	    }
268 	    cl__1.cerr = 0;
269 	    cl__1.cunit = *iou;
270 	    cl__1.csta = 0;
271 	    f_clos(&cl__1);
272 	} else {
273 	    nrecl = *nrl + nl;
274 	}
275     } else {
276 	nrecl = *nrl;
277     }
278     o__1.oerr = 1;
279     o__1.ounit = *iou;
280     o__1.ofnmlen = cdsn_len;
281     o__1.ofnm = cdsn;
282     o__1.orl = nrecl;
283     o__1.osta = 0;
284     o__1.oacc = "DIRECT";
285     o__1.ofm = "UNFORMATTED";
286     o__1.oblnk = 0;
287     *icon = f_open(&o__1);
288 /*     REWIND(IOU) */
289     return 0;
290 /* ----------------------------------------------------------------------- */
291 
292 L_fcclos:
293     cl__1.cerr = 1;
294     cl__1.cunit = *iou;
295     cl__1.csta = 0;
296     *icon = f_clos(&cl__1);
297     *(unsigned char *)&cs[*iou - 1] = 'C';
298     return 0;
299 /* ----------------------------------------------------------------------- */
300 
301 L_fcnrec:
302     if (lchreq_(cs + (*iou - 1), "R", (ftnlen)1, (ftnlen)1)) {
303 	nr[*iou - 1] = *nrec;
304     } else {
305 	msgdmp_("E", "FCNREC", "RECORD NUMBER CAN BE SPECIFIED ONLY FOR READ"
306 		" MODE.", (ftnlen)1, (ftnlen)6, (ftnlen)50);
307     }
308     return 0;
309 /* ----------------------------------------------------------------------- */
310 
311 L_fcgetr:
312     if (! lchreq_(cs + (*iou - 1), "R", (ftnlen)1, (ftnlen)1)) {
313 	msgdmp_("E", "FCGETR", "ACCESS MODE IS NOT 'R'.", (ftnlen)1, (ftnlen)
314 		6, (ftnlen)23);
315     }
316     io___21.ciunit = *iou;
317     io___21.cirec = nr[*iou - 1];
318     *icon = s_rdue(&io___21);
319     if (*icon != 0) {
320 	goto L100002;
321     }
322     *icon = do_uio(&c__1, cbuf, nz[*iou - 1]);
323     if (*icon != 0) {
324 	goto L100002;
325     }
326     *icon = e_rdue();
327 L100002:
328     if (*icon == 0) {
329 	++nr[*iou - 1];
330     }
331     return 0;
332 /* ----------------------------------------------------------------------- */
333 
334 L_fcputr:
335     if (! lchreq_(cs + (*iou - 1), "W", (ftnlen)1, (ftnlen)1)) {
336 	msgdmp_("E", "FCPUTR", "ACCESS MODE IS NOT 'W'.", (ftnlen)1, (ftnlen)
337 		6, (ftnlen)23);
338     }
339     if (le[*iou - 1]) {
340 	io___22.ciunit = *iou;
341 	io___22.cirec = nr[*iou - 1];
342 	*icon = s_wdue(&io___22);
343 	if (*icon != 0) {
344 	    goto L100003;
345 	}
346 	*icon = do_uio(&c__1, cbuf, nz[*iou - 1]);
347 	if (*icon != 0) {
348 	    goto L100003;
349 	}
350 	*icon = do_uio(&c__1, cl, nl);
351 	if (*icon != 0) {
352 	    goto L100003;
353 	}
354 	*icon = e_wdue();
355 L100003:
356 	;
357     } else {
358 	io___23.ciunit = *iou;
359 	io___23.cirec = nr[*iou - 1];
360 	*icon = s_wdue(&io___23);
361 	if (*icon != 0) {
362 	    goto L100004;
363 	}
364 	*icon = do_uio(&c__1, cbuf, nz[*iou - 1]);
365 	if (*icon != 0) {
366 	    goto L100004;
367 	}
368 	*icon = e_wdue();
369 L100004:
370 	;
371     }
372     if (*icon == 0) {
373 	++nr[*iou - 1];
374     }
375     return 0;
376 /* ----------------------------------------------------------------------- */
377 
378 L_fcgets:
379     if (! lchreq_(cs + (*iou - 1), "R", (ftnlen)1, (ftnlen)1)) {
380 	msgdmp_("E", "FCGETS", "ACCESS MODE IS NOT 'R'.", (ftnlen)1, (ftnlen)
381 		6, (ftnlen)23);
382     }
383     if (! (nz[*iou - 1] % 4 == 0)) {
384 	msgdmp_("E", "FCGETS", "RECORD LENGTH SHOULD BE A MULTIPLE OF 4.", (
385 		ftnlen)1, (ftnlen)6, (ftnlen)40);
386     }
387     na = nz[*iou - 1] / 4;
388     if (le[*iou - 1]) {
389 	msgdmp_("E", "FCGETS", "<LF> CHARACTER CAN BE HANDLED FOR CHARACTER "
390 		"I/O.", (ftnlen)1, (ftnlen)6, (ftnlen)48);
391     } else {
392 	io___25.ciunit = *iou;
393 	io___25.cirec = nr[*iou - 1];
394 	*icon = s_rdue(&io___25);
395 	if (*icon != 0) {
396 	    goto L100005;
397 	}
398 	i__2 = na;
399 	for (n = 1; n <= i__2; ++n) {
400 	    *icon = do_uio(&c__1, (char *)&ibuf[n], (ftnlen)sizeof(integer));
401 	    if (*icon != 0) {
402 		goto L100005;
403 	    }
404 	}
405 	*icon = e_rdue();
406 L100005:
407 	;
408     }
409     if (*icon == 0) {
410 	++nr[*iou - 1];
411     }
412     return 0;
413 /* ----------------------------------------------------------------------- */
414 
415 L_fcputs:
416     if (! lchreq_(cs + (*iou - 1), "W", (ftnlen)1, (ftnlen)1)) {
417 	msgdmp_("E", "FCPUTS", "ACCESS MODE IS NOT 'W'.", (ftnlen)1, (ftnlen)
418 		6, (ftnlen)23);
419     }
420     if (! (nz[*iou - 1] % 4 == 0)) {
421 	msgdmp_("E", "FCPUTS", "RECORD LENGTH SHOULD BE A MULTIPLE OF 4.", (
422 		ftnlen)1, (ftnlen)6, (ftnlen)40);
423     }
424     na = nz[*iou - 1] / 4;
425     if (le[*iou - 1]) {
426 	msgdmp_("E", "FCPUTS", "<LF> CHARACTER CAN BE HANDLED FOR CHARACTER "
427 		"I/O.", (ftnlen)1, (ftnlen)6, (ftnlen)48);
428     } else {
429 	io___26.ciunit = *iou;
430 	io___26.cirec = nr[*iou - 1];
431 	*icon = s_wdue(&io___26);
432 	if (*icon != 0) {
433 	    goto L100006;
434 	}
435 	i__2 = na;
436 	for (n = 1; n <= i__2; ++n) {
437 	    *icon = do_uio(&c__1, (char *)&ibuf[n], (ftnlen)sizeof(integer));
438 	    if (*icon != 0) {
439 		goto L100006;
440 	    }
441 	}
442 	*icon = e_wdue();
443 L100006:
444 	;
445     }
446     if (*icon == 0) {
447 	++nr[*iou - 1];
448     }
449     return 0;
450 /* ----------------------------------------------------------------------- */
451 
452 L_fcrwnd:
453 /*     REWIND(UNIT=IOU,IOSTAT=ICON) */
454     nr[*iou - 1] = 1;
455     return 0;
456 } /* fcpack_ */
457 
fcpack_(void)458 /* Subroutine */ int fcpack_(void)
459 {
460     return fcpack_0_(0, (char *)0, (integer *)0, (logical *)0, (char *)0, (
461 	    integer *)0, (char *)0, (integer *)0, (integer *)0, (char *)0, (
462 	    integer *)0, (ftnint)0, (ftnint)0, (ftnint)0, (ftnint)0);
463     }
464 
fcslfc_(char * clx,ftnlen clx_len)465 /* Subroutine */ int fcslfc_(char *clx, ftnlen clx_len)
466 {
467     return fcpack_0_(1, clx, (integer *)0, (logical *)0, (char *)0, (integer *
468 	    )0, (char *)0, (integer *)0, (integer *)0, (char *)0, (integer *)
469 	    0, clx_len, (ftnint)0, (ftnint)0, (ftnint)0);
470     }
471 
fcleol_(integer * iou,logical * leol)472 /* Subroutine */ int fcleol_(integer *iou, logical *leol)
473 {
474     return fcpack_0_(2, (char *)0, iou, leol, (char *)0, (integer *)0, (char *
475 	    )0, (integer *)0, (integer *)0, (char *)0, (integer *)0, (ftnint)
476 	    0, (ftnint)0, (ftnint)0, (ftnint)0);
477     }
478 
fcopen_(integer * iou,char * cdsn,integer * nrl,char * cact,integer * icon,ftnlen cdsn_len,ftnlen cact_len)479 /* Subroutine */ int fcopen_(integer *iou, char *cdsn, integer *nrl, char *
480 	cact, integer *icon, ftnlen cdsn_len, ftnlen cact_len)
481 {
482     return fcpack_0_(3, (char *)0, iou, (logical *)0, cdsn, nrl, cact, icon, (
483 	    integer *)0, (char *)0, (integer *)0, (ftnint)0, cdsn_len,
484 	    cact_len, (ftnint)0);
485     }
486 
fcclos_(integer * iou,integer * icon)487 /* Subroutine */ int fcclos_(integer *iou, integer *icon)
488 {
489     return fcpack_0_(4, (char *)0, iou, (logical *)0, (char *)0, (integer *)0,
490 	     (char *)0, icon, (integer *)0, (char *)0, (integer *)0, (ftnint)
491 	    0, (ftnint)0, (ftnint)0, (ftnint)0);
492     }
493 
fcnrec_(integer * iou,integer * nrec)494 /* Subroutine */ int fcnrec_(integer *iou, integer *nrec)
495 {
496     return fcpack_0_(5, (char *)0, iou, (logical *)0, (char *)0, (integer *)0,
497 	     (char *)0, (integer *)0, nrec, (char *)0, (integer *)0, (ftnint)
498 	    0, (ftnint)0, (ftnint)0, (ftnint)0);
499     }
500 
fcgetr_(integer * iou,char * cbuf,integer * icon,ftnlen cbuf_len)501 /* Subroutine */ int fcgetr_(integer *iou, char *cbuf, integer *icon, ftnlen
502 	cbuf_len)
503 {
504     return fcpack_0_(6, (char *)0, iou, (logical *)0, (char *)0, (integer *)0,
505 	     (char *)0, icon, (integer *)0, cbuf, (integer *)0, (ftnint)0, (
506 	    ftnint)0, (ftnint)0, cbuf_len);
507     }
508 
fcputr_(integer * iou,char * cbuf,integer * icon,ftnlen cbuf_len)509 /* Subroutine */ int fcputr_(integer *iou, char *cbuf, integer *icon, ftnlen
510 	cbuf_len)
511 {
512     return fcpack_0_(7, (char *)0, iou, (logical *)0, (char *)0, (integer *)0,
513 	     (char *)0, icon, (integer *)0, cbuf, (integer *)0, (ftnint)0, (
514 	    ftnint)0, (ftnint)0, cbuf_len);
515     }
516 
fcgets_(integer * iou,integer * ibuf,integer * icon)517 /* Subroutine */ int fcgets_(integer *iou, integer *ibuf, integer *icon)
518 {
519     return fcpack_0_(8, (char *)0, iou, (logical *)0, (char *)0, (integer *)0,
520 	     (char *)0, icon, (integer *)0, (char *)0, ibuf, (ftnint)0, (
521 	    ftnint)0, (ftnint)0, (ftnint)0);
522     }
523 
fcputs_(integer * iou,integer * ibuf,integer * icon)524 /* Subroutine */ int fcputs_(integer *iou, integer *ibuf, integer *icon)
525 {
526     return fcpack_0_(9, (char *)0, iou, (logical *)0, (char *)0, (integer *)0,
527 	     (char *)0, icon, (integer *)0, (char *)0, ibuf, (ftnint)0, (
528 	    ftnint)0, (ftnint)0, (ftnint)0);
529     }
530 
fcrwnd_(integer * iou,integer * icon)531 /* Subroutine */ int fcrwnd_(integer *iou, integer *icon)
532 {
533     return fcpack_0_(10, (char *)0, iou, (logical *)0, (char *)0, (integer *)
534 	    0, (char *)0, icon, (integer *)0, (char *)0, (integer *)0, (
535 	    ftnint)0, (ftnint)0, (ftnint)0, (ftnint)0);
536     }
537 
538