REAL.H

Go to the documentation of this file.

/*
** (c) 1996-2000 The Regents of the University of California (through
** E.O. Lawrence Berkeley National Laboratory), subject to approval by
** the U.S. Department of Energy.  Your use of this software is under
** license -- the license agreement is attached and included in the
** directory as license.txt or you may contact Berkeley Lab's Technology
** Transfer Department at TTD@lbl.gov.  NOTICE OF U.S. GOVERNMENT RIGHTS.
** The Software was developed under funding from the U.S. Government
** which consequently retains certain rights as follows: the
** U.S. Government has been granted for itself and others acting on its
** behalf a paid-up, nonexclusive, irrevocable, worldwide license in the
** Software to reproduce, prepare derivative works, and perform publicly
** and display publicly.  Beginning five (5) years after the date
** permission to assert copyright is obtained from the U.S. Department of
** Energy, and subject to any subsequent five (5) year renewals, the
** U.S. Government is granted for itself and others acting on its behalf
** a paid-up, nonexclusive, irrevocable, worldwide license in the
** Software to reproduce, prepare derivative works, distribute copies to
** the public, perform publicly and display publicly, and to permit
** others to do so.
*/

#ifndef BL_REAL_H
#define BL_REAL_H

/*
 * $Id: REAL.H,v 1.11 2001/08/16 17:57:43 lijewski Exp $
 */

#ifdef BL_USE_FLOAT
#  undef BL_USE_DOUBLE
#  undef BL_USE_FLOAT

#  define BL_USE_FLOAT 1
#else
#  undef  BL_USE_FLOAT
#  undef  BL_USE_DOUBLE

#  define BL_USE_DOUBLE 1
#endif

#if !defined(BL_LANG_FORT)

#ifdef BL_USE_FLOAT
    typedef float Real;
#else
    typedef double Real;
#endif

#else

#ifdef BL_USE_IFLOAT
#    define INTEGER_T integer*4
#else
#    define INTEGER_T integer
#endif

#ifdef BL_USE_FLOAT
#    define REAL_T real*4
#if __STDC__==1
#        define BL_REAL(a) a##E0
#        define BL_REAL_E(a,b) a##E##b
#else
#        define BL_REAL(a) aE0
#        define BL_REAL_E(a,b) aEb
#endif
#else
#    define REAL_T real*8
#if __STDC__==1
#        define BL_REAL(a) a##D0
#        define BL_REAL_E(a,b) a##D##b
#else
#        define BL_REAL(a) aD0
#        define BL_REAL_E(a,b) aDb
#endif
#endif

#endif /* !BL_LANG_FORT */

#if defined(BL_ARCH_CRAY)
#  if !defined(BL_USE_FLOAT)
#    error BL_USE_FLOAT required on CRAY architectures
#  endif
#endif

#endif /*BL_REAL_H*/

---