| 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 |
|
|---|
| 5 | This file is part of GNU Fortran.
|
|---|
| 6 |
|
|---|
| 7 | GNU Fortran is free software; you can redistribute it and/or modify
|
|---|
| 8 | it under the terms of the GNU General Public License as published by
|
|---|
| 9 | the Free Software Foundation; either version 2, or (at your option)
|
|---|
| 10 | any later version.
|
|---|
| 11 |
|
|---|
| 12 | GNU Fortran is distributed in the hope that it will be useful,
|
|---|
| 13 | but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|---|
| 14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|---|
| 15 | GNU General Public License for more details.
|
|---|
| 16 |
|
|---|
| 17 | You should have received a copy of the GNU General Public License
|
|---|
| 18 | along with GNU Fortran; see the file COPYING. If not, write to
|
|---|
| 19 | the Free Software Foundation, 59 Temple Place - Suite 330,
|
|---|
| 20 | Boston, 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
|
|---|
