|
|
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: * @(#)f_errlist.c 5.2 7/30/85 ! 7: */ ! 8: ! 9: /* ! 10: * f77 I/O error messages ! 11: */ ! 12: ! 13: char *f_errlist[] = ! 14: { ! 15: /* 100 */ "error in format", ! 16: /* 101 */ "illegal unit number", ! 17: /* 102 */ "formatted i/o not allowed", ! 18: /* 103 */ "unformatted i/o not allowed", ! 19: /* 104 */ "direct i/o not allowed", ! 20: /* 105 */ "sequential i/o not allowed", ! 21: /* 106 */ "can't backspace file", ! 22: /* 107 */ "off beginning of record", ! 23: /* 108 */ "can't stat file", ! 24: /* 109 */ "no * after repeat count", ! 25: /* 110 */ "off end of record", ! 26: /* 111 */ "truncation failed", ! 27: /* 112 */ "incomprehensible list input", ! 28: /* 113 */ "out of free space", ! 29: /* 114 */ "unit not connected", ! 30: /* 115 */ "invalid data for integer format term", ! 31: /* 116 */ "invalid data for logical format term", ! 32: /* 117 */ "'new' file exists", ! 33: /* 118 */ "can't find 'old' file", ! 34: /* 119 */ "opening too many files or unknown system error", ! 35: /* 120 */ "requires seek ability", ! 36: /* 121 */ "illegal argument", ! 37: /* 122 */ "negative repeat count", ! 38: /* 123 */ "illegal operation for unit", ! 39: /* 124 */ "invalid data for d,e,f, or g format term", ! 40: /* 125 */ "illegal input for namelist", ! 41: }; ! 42: ! 43: int f_nerr = (sizeof(f_errlist)/sizeof(char *));
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.