Loading...
Searching...
No Matches
fortran.hpp
//===========================================================================
//
// File: fortran.hpp
//
// Created: Sun Jun 21 18:50:37 2009
//
// Author(s): Bård Skaflestad <bard.skaflestad@sintef.no>
// Atgeirr F Rasmussen <atgeirr@sintef.no>
//
// $Date$
//
// $Revision$
//
//===========================================================================
/*
Copyright 2009, 2010 SINTEF ICT, Applied Mathematics.
Copyright 2009, 2010 Statoil ASA.
This file is part of The Open Reservoir Simulator Project (OpenRS).
OpenRS 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 3 of the License, or
(at your option) any later version.
OpenRS 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 OpenRS. If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef OPENRS_FORTRAN_HEADER
#define OPENRS_FORTRAN_HEADER
// This file relies on autoconf correctly detecting the Fortran name
// mangling scheme and subsequently defining the macros 'F77_FUNC' and
// 'F77_FUNC_'.
// However, if we're not using Autoconf, then make a guess at
// Linux conventions...
#ifndef F77_FUNC
#define F77_FUNC(lcase,UCASE) lcase ## _
#endif
#ifdef F77_NAME
#undef F77_NAME
#endif
#define F77_NAME(lcase,UCASE) F77_FUNC(lcase,UCASE)
#ifdef F77_NAME_
#undef F77_NAME_
#endif
#define F77_NAME_(lcase,UCASE) F77_FUNC_(lcase,UCASE)
#ifdef F77_CHARACTER_TYPE
#undef F77_CHARACTER_TYPE
#endif
#define F77_CHARACTER_TYPE const char*
#ifdef F77_CHARACTER
#undef F77_CHARACTER
#endif
#define F77_CHARACTER(c) &c
#endif // OPENRS_FORTRAN_HEADER