libi66.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

/*
 * set flag to initialize fortran-66 mods
 *	@(#)libI66.c	1.4
 * usage: f77 ... -lI66 ...
 */

#include	"fiodefs.h"

struct ioiflg	ioiflg_ = {
	 0,		/* open files at beginning */
	 1,		/* carriage control on all units */
	 1,		/* blanks are zero on input; 0 => 0.0 on output */
};