111918Sdlw /* 2*23078Skre * Copyright (c) 1980 Regents of the University of California. 3*23078Skre * All rights reserved. The Berkeley software License Agreement 4*23078Skre * specifies the terms and conditions for redistribution. 5*23078Skre * 6*23078Skre * @(#)libI66.c 5.1 06/07/85 7*23078Skre */ 8*23078Skre 9*23078Skre /* 1011918Sdlw * set flag to initialize fortran-66 mods 11*23078Skre * 1211918Sdlw * usage: f77 ... -lI66 ... 1311918Sdlw */ 1411918Sdlw 1512023Sdlw #include "fiodefs.h" 1612023Sdlw 1712023Sdlw struct ioiflg ioiflg_ = { 1812038Sdlw 0, /* open files at beginning */ 1912023Sdlw 1, /* carriage control on all units */ 2012023Sdlw 1, /* blanks are zero on input; 0 => 0.0 on output */ 2112023Sdlw }; 22