/usr/include/fortran.h is in libhypre-dev 2.4.0b-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 | /*BHEADER**********************************************************************
* Copyright (c) 2008, Lawrence Livermore National Security, LLC.
* Produced at the Lawrence Livermore National Laboratory.
* This file is part of HYPRE. See file COPYRIGHT for details.
*
* HYPRE is free software; you can redistribute it and/or modify it under the
* terms of the GNU Lesser General Public License (as published by the Free
* Software Foundation) version 2.1 dated February 1999.
*
* $Revision: 2.16 $
***********************************************************************EHEADER*/
/******************************************************************************
*
* Fortran <-> C interface macros
*
*****************************************************************************/
#ifndef HYPRE_FORT_HEADER
#define HYPRE_FORT_HEADER
#include "HYPRE_config.h"
#ifdef WIN32
#include "mkl.h"
#endif
#if defined(F77_FUNC_)
/* F77_FUNC_ macro assumes underscores exist in name */
# define hypre_NAME_C_CALLING_FORT(name,NAME) F77_FUNC_(name,NAME)
# define hypre_NAME_FORT_CALLING_C(name,NAME) F77_FUNC_(name,NAME)
#elif defined(HYPRE_RS6000)
# define hypre_NAME_C_CALLING_FORT(name,NAME) name
# define hypre_NAME_FORT_CALLING_C(name,NAME) name
#elif defined(HYPRE_CRAY)
# define hypre_NAME_C_CALLING_FORT(name,NAME) NAME
# define hypre_NAME_FORT_CALLING_C(name,NAME) NAME
#elif defined(HYPRE_LINUX)
# define hypre_NAME_C_CALLING_FORT(name,NAME) name##__
# define hypre_NAME_FORT_CALLING_C(name,NAME) name##__
#elif defined(HYPRE_LINUX_CHAOS)
# define hypre_NAME_C_CALLING_FORT(name,NAME) name##_
# define hypre_NAME_FORT_CALLING_C(name,NAME) name##_
#elif defined(HYPRE_HPPA)
# define hypre_NAME_C_CALLING_FORT(name,NAME) name
# define hypre_NAME_FORT_CALLING_C(name,NAME) name
#elif defined(WIN32)
# define hypre_NAME_C_CALLING_FORT(name,NAME) NAME
# define hypre_NAME_FORT_CALLING_C(name,NAME) NAME
#else
# define hypre_NAME_C_CALLING_FORT(name,NAME) name##_
# define hypre_NAME_FORT_CALLING_C(name,NAME) name##_
#endif
#define hypre_F90_IFACE(name,NAME) hypre_NAME_FORT_CALLING_C(name,NAME)
#define hypre_F90_NAME(name,NAME) hypre_NAME_C_CALLING_FORT(name,NAME)
#ifdef WIN32
#define hypre_F90_NAME_BLAS(name,NAME) NAME
#else
#ifdef HYPRE_USING_HYPRE_BLAS
#define hypre_F90_NAME_BLAS(name,NAME) hypre_##name
#else
#if defined(F77_FUNC)
/* F77_FUNC macro assumes NO underscores exist in name */
#define hypre_F90_NAME_BLAS(name,NAME) F77_FUNC(name,NAME)
#else
#define hypre_F90_NAME_BLAS(name,NAME) hypre_NAME_C_CALLING_FORT(name,NAME)
#endif
#endif
#endif
#ifdef HYPRE_USING_HYPRE_LAPACK
#define hypre_F90_NAME_LAPACK(name,NAME) hypre_##name
#else
#if defined(F77_FUNC)
/* F77_FUNC macro assumes NO underscores exist in name */
#define hypre_F90_NAME_LAPACK(name,NAME) F77_FUNC(name,NAME)
#else
#define hypre_F90_NAME_LAPACK(name,NAME) hypre_NAME_C_CALLING_FORT(name,NAME)
#endif
#endif
#endif
|