|
|
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.