char id_fiodefs[] = "@(#)fiodefs.h 1.1";
* fortran file i/o type definitions
/* Logical Unit Table Size */
#define GLITCH '\2' /* special quote for Stu, generated in f77pass1 */
typedef struct /*external read, write*/
typedef struct /*internal read, write*/
typedef struct /*rewind, backspace, endfile*/
{ FILE *ufd
; /*0=unconnected*/
int url
; /*0=sequential*/
flag useek
; /*true=can backspace, use dir, ...*/
flag uwrt
; /*last io was write*/
typedef struct /* inquire */
ftnint
*inex
; /*parameters in standard's order*/