1/* f2c.h file for GNU Fortran run-time library 2 Copyright (C) 1998 Free Software Foundation, Inc. 3 Contributed by James Craig Burley. 4 5This file is part of GNU Fortran. 6 7GNU Fortran is free software; you can redistribute it and/or modify 8it under the terms of the GNU General Public License as published by 9the Free Software Foundation; either version 2, or (at your option) 10any later version. 11 12GNU Fortran is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15GNU General Public License for more details. 16 17You should have received a copy of the GNU General Public License 18along with GNU Fortran; see the file COPYING. If not, write to 19the Free Software Foundation, 59 Temple Place - Suite 330, 20Boston, MA 02111-1307, USA. */ 21 22/* This file currently is just a stub through which g77's copy 23 of netlib's libf2c, which g77 builds and installs as libg2c.a 24 (to avoid conflict), #include's g77's version of f2c.h, named 25 g2c.h. That file is, in turn, produced via g77's library 26 configuration process from g2c.h.in. 27 28 By going through this extra "hoop", it is easy to provide for 29 libg2c-specific configuration and typedefs that aren't appropriate 30 in g2c.h itself (since that is intended to be installed so it can 31 be shared with f2c users), without changing the libf2c (libg2c) 32 routines themselves. (They continue to #include "f2c.h", just 33 like they do in netlib's version.) */ 34 35#include "g2c.h" 36 37/* For GNU Fortran (g77), we always enable the following behaviors for 38 libf2c, to make things easy on the programmer. The alternate 39 behaviors have their uses, and g77 might provide them as compiler, 40 rather than library, options, so only a single copy of a shared libf2c 41 need be built for a system. */ 42 43/* This makes unformatted I/O more consistent in relation to other 44 systems. It is not required by the F77 standard. */ 45 46#define Pad_UDread 47 48/* This makes ERR= and IOSTAT= returns work properly in disk-full 49 situations, making things work more as expected. It slows things 50 down, so g77 will probably someday choose the original implementation 51 on a case-by-case basis when it can be shown to not be necessary 52 (e.g. no ERR= or IOSTAT=) or when it is given the appropriate 53 compile-time option or, perhaps, source-code directive. 54 55 (No longer defined, since it really slows down NFS access too much.) */ 56 57/* #define ALWAYS_FLUSH */ 58 59/* Most Fortran implementations do this, so to make it easier 60 to compare the output of g77-compiled programs to those compiled 61 by most other compilers, tell libf2c to put leading zeros in 62 appropriate places on output. */ 63 64#define WANT_LEAD_0 65