1*47943Sbostic /*- 2*47943Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47943Sbostic * All rights reserved. 423078Skre * 5*47943Sbostic * %sccs.include.proprietary.c% 623078Skre */ 723078Skre 8*47943Sbostic #ifndef lint 9*47943Sbostic static char sccsid[] = "@(#)libI66.c 5.2 (Berkeley) 04/12/91"; 10*47943Sbostic #endif /* not lint */ 11*47943Sbostic 1223078Skre /* 1311918Sdlw * set flag to initialize fortran-66 mods 1423078Skre * 1511918Sdlw * usage: f77 ... -lI66 ... 1611918Sdlw */ 1711918Sdlw 1812023Sdlw #include "fiodefs.h" 1912023Sdlw 2012023Sdlw struct ioiflg ioiflg_ = { 2112038Sdlw 0, /* open files at beginning */ 2212023Sdlw 1, /* carriage control on all units */ 2312023Sdlw 1, /* blanks are zero on input; 0 => 0.0 on output */ 2412023Sdlw }; 25