|
|
1.1 root 1: /*
2: * Copyright (c) 1980 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: *
6: * @(#)libI66.c 5.1 6/7/85
7: */
8:
9: /*
10: * set flag to initialize fortran-66 mods
11: *
12: * usage: f77 ... -lI66 ...
13: */
14:
15: #include "fiodefs.h"
16:
17: struct ioiflg ioiflg_ = {
18: 0, /* open files at beginning */
19: 1, /* carriage control on all units */
20: 1, /* blanks are zero on input; 0 => 0.0 on output */
21: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.