mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-15 16:18:22 +01:00
05d97e8baf
25f24721 fixed compiler warnings except NAN 3f24bf17 moved enum to RMVARS.h 54045123 changed all double precision to real(kind=8) in all files. Compiles and runs test cases. git-subtree-dir: src git-subtree-split: 25f2472130c22c1a63e15f0fa58f1021c83a7b4a
184 lines
10 KiB
C
184 lines
10 KiB
C
#if defined(WIN32)
|
|
#include <windows.h>
|
|
#endif
|
|
#include "phrqtype.h"
|
|
#ifndef _INC_SUNDIALSTYPES_H
|
|
#define _INC_SUNDIALSTYPES_H
|
|
/**************************************************************************
|
|
* *
|
|
* File : sundialstypes.h *
|
|
* Programmers : Scott D. Cohen and Alan C. Hindmarsh @ LLNL *
|
|
* Version of : 26 June 2002 *
|
|
*------------------------------------------------------------------------*
|
|
* Copyright (c) 2002, The Regents of the University of California *
|
|
* Produced at the Lawrence Livermore National Laboratory *
|
|
* All rights reserved *
|
|
* For details, see LICENSE below *
|
|
*------------------------------------------------------------------------*
|
|
* This header file exports three types: realtype, integertype, *
|
|
* and booleantype, as well as the constants TRUE and FALSE. *
|
|
* *
|
|
* Users should #include "sundialstypes.h" in any file that *
|
|
* shhould be easily modifiable to work with different real or *
|
|
* integer types and use the exported names realtype and *
|
|
* integertype within such a file. *
|
|
* The types for realtype and integertype below have been set to *
|
|
* double and long int, respectively. A user should modify these *
|
|
* type declarations as he/she sees fit. For example, if a user *
|
|
* wants the work with type float because real(kind=8) *
|
|
* floating point arithmetic is too expensive on the user's *
|
|
* machine, then the definition below should be changed to: *
|
|
* *
|
|
* typedef float realtype; *
|
|
* *
|
|
* Similarly, if a user does not need to work with extremely large *
|
|
* integers (see the system header file <limits.h> for the limits *
|
|
* on type int and long int on your machine), then the user *
|
|
* should change the definition below to: *
|
|
* *
|
|
* typedef int integertype; *
|
|
* *
|
|
* The constants SUNDIALS_FLOAT, SUNDIALS_DOUBLE, SUNDIALS_INT, *
|
|
* SUNDIALS_LONG indicate the underlying types for realtype and *
|
|
* integertype. They should be set as follows: *
|
|
* *
|
|
* (1) #define SUNDIALS_FLOAT 1 *
|
|
* #define SUNDIALS_DOUBLE 0 (real is float) *
|
|
* *
|
|
* (2) #define SUNDIALS_FLOAT 0 *
|
|
* #define SUNDIALS_DOUBLE 1 (real is double) *
|
|
* *
|
|
* (3) #define SUNDIALS_INT 1 *
|
|
* #define SUNDIALS_LONG 0 (integer is int) *
|
|
* *
|
|
* (4) #define SUNDIALS_INT 0 *
|
|
* #define SUNDIALS_LONG 1 (integer is long int) *
|
|
* *
|
|
* Thus the legal types for realtype are float and double, while *
|
|
* the legal types for integertype are int and long int. *
|
|
* The macro RCONST gives a user a convenient way to define real *
|
|
* constants. To use the real constant 1.0, for example, the *
|
|
* user should write *
|
|
* *
|
|
* #define ONE RCONST(1.0) *
|
|
* *
|
|
* If realtype is double, then RCONST(1.0) expands to 1.0. *
|
|
* If realtype is float, then RCONST(1.0) expands to 1.0F. *
|
|
* There is never a need to explicitly cast 1.0 to (realtype). *
|
|
* *
|
|
*------------------------------------------------------------------------*
|
|
* LICENSE *
|
|
*------------------------------------------------------------------------*
|
|
* Copyright (c) 2002, The Regents of the University of California. *
|
|
* Produced at the Lawrence Livermore National Laboratory. *
|
|
* Written by S.D. Cohen, A.C. Hindmarsh, R. Serban, *
|
|
* D. Shumaker, and A.G. Taylor. *
|
|
* UCRL-CODE-155951 (CVODE) *
|
|
* UCRL-CODE-155950 (CVODES) *
|
|
* UCRL-CODE-155952 (IDA) *
|
|
* UCRL-CODE-237203 (IDAS) *
|
|
* UCRL-CODE-155953 (KINSOL) *
|
|
* All rights reserved. *
|
|
* *
|
|
* This file is part of SUNDIALS. *
|
|
* *
|
|
* Redistribution and use in source and binary forms, with or without *
|
|
* modification, are permitted provided that the following conditions *
|
|
* are met: *
|
|
* *
|
|
* 1. Redistributions of source code must retain the above copyright *
|
|
* notice, this list of conditions and the disclaimer below. *
|
|
* *
|
|
* 2. Redistributions in binary form must reproduce the above copyright *
|
|
* notice, this list of conditions and the disclaimer (as noted below) *
|
|
* in the documentation and/or other materials provided with the *
|
|
* distribution. *
|
|
* *
|
|
* 3. Neither the name of the UC/LLNL nor the names of its contributors *
|
|
* may be used to endorse or promote products derived from this software *
|
|
* without specific prior written permission. *
|
|
* *
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS *
|
|
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT *
|
|
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS *
|
|
* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE *
|
|
* REGENTS OF THE UNIVERSITY OF CALIFORNIA, THE U.S. DEPARTMENT OF ENERGY *
|
|
* OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, *
|
|
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT *
|
|
* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, *
|
|
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY *
|
|
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT *
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE *
|
|
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *
|
|
**************************************************************************/
|
|
#ifndef _sundialstypes_h
|
|
#define _sundialstypes_h
|
|
|
|
|
|
/******************************************************************
|
|
* *
|
|
* Types : realtype, integertype *
|
|
*----------------------------------------------------------------*
|
|
* The types realtype and integertype are currently set to double *
|
|
* and int, respectively. See the documentation at the top for *
|
|
* usage details and a description of associated constants and *
|
|
* macros. *
|
|
* *
|
|
******************************************************************/
|
|
|
|
typedef LDBLE realtype;
|
|
typedef long int integertype;
|
|
|
|
#define SUNDIALS_FLOAT 0
|
|
#define SUNDIALS_DOUBLE 1
|
|
|
|
#define SUNDIALS_LONG 1
|
|
#define SUNDIALS_INT 0
|
|
|
|
#if SUNDIALS_FLOAT
|
|
|
|
#define RCONST(x) x##F
|
|
|
|
#elif SUNDIALS_DOUBLE
|
|
|
|
#define RCONST(x) x
|
|
|
|
#endif
|
|
|
|
|
|
/******************************************************************
|
|
* *
|
|
* Type : booleantype *
|
|
* Constants : FALSE, TRUE *
|
|
*----------------------------------------------------------------*
|
|
* ANSI C does not have a built-in boolean type. Below is the *
|
|
* definition for a new type booleantype. The advantage of using *
|
|
* the name booleantype (instead of int) is an increase in code *
|
|
* readability. *
|
|
* It allows the programmer to make a distinction between int and *
|
|
* boolean data. Variables of type booleantype are intended to *
|
|
* have only the two values FALSE and TRUE which are defined *
|
|
* below to be equal to 0 and 1, respectively. *
|
|
* *
|
|
******************************************************************/
|
|
|
|
#ifndef booleantype
|
|
#define booleantype int
|
|
#endif
|
|
|
|
#ifndef FALSE
|
|
#define FALSE 0
|
|
#endif
|
|
|
|
#ifndef TRUE
|
|
#define TRUE 1
|
|
#endif
|
|
|
|
#endif
|
|
/*
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
*/
|
|
#endif /* _INC_SUNDIALSTYPES_H */
|