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