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