1 | !
|
---|
2 | ! -----------------------------------------------------------------
|
---|
3 | ! Programmer(s): Daniel R. Reynolds @ SMU
|
---|
4 | !-----------------------------------------------------------------
|
---|
5 | ! LLNS/SMU Copyright Start
|
---|
6 | ! Copyright (c) 2015, Southern Methodist University and
|
---|
7 | ! Lawrence Livermore National Security
|
---|
8 | !
|
---|
9 | ! This work was performed under the auspices of the U.S. Department
|
---|
10 | ! of Energy by Southern Methodist University and Lawrence Livermore
|
---|
11 | ! National Laboratory under Contract DE-AC52-07NA27344.
|
---|
12 | ! Produced at Southern Methodist University and the Lawrence
|
---|
13 | ! Livermore National Laboratory.
|
---|
14 | !
|
---|
15 | ! All rights reserved.
|
---|
16 | ! For details, see the LICENSE file.
|
---|
17 | ! LLNS/SMU Copyright End
|
---|
18 | ! Copyright (c) 2013, Southern Methodist University.
|
---|
19 | ! All rights reserved.
|
---|
20 | ! For details, see the LICENSE file.
|
---|
21 | ! ------------------------------------------------------------------
|
---|
22 | ! SUNDIALS fortran configuration input
|
---|
23 | ! ------------------------------------------------------------------
|
---|
24 |
|
---|
25 | ! Define precision of SUNDIALS data type 'realtype' as Fortran
|
---|
26 | ! parameter "REALTYPE"
|
---|
27 | !
|
---|
28 | ! Depending on the precision level, this value will be one of
|
---|
29 | ! 4 (SUNDIALS_SINGLE_PRECISION)
|
---|
30 | ! 8 (SUNDIALS_DOUBLE_PRECISION)
|
---|
31 | ! 16 (SUNDIALS_EXTENDED_PRECISION)
|
---|
32 | !
|
---|
33 | integer REALTYPE
|
---|
34 | parameter (REALTYPE=8)
|
---|
35 |
|
---|
36 | ! Define type of vector indices in SUNDIALS 'sunindextype' as
|
---|
37 | ! the Fortran parameter "SUNINDEXTYPE"
|
---|
38 | !
|
---|
39 | ! Depending on the user choice of indextype, this will be one of
|
---|
40 | ! 4 (32BIT)
|
---|
41 | ! 8 (64BIT)
|
---|
42 | !
|
---|
43 | integer SUNINDEXTYPE
|
---|
44 | parameter (SUNINDEXTYPE=8)
|
---|
45 |
|
---|
46 | ! If building with MPI enabled, define the logical flag
|
---|
47 | ! "SUNDIALS_MPI_COMM_F2C" indicating whether the user can specify
|
---|
48 | ! a different MPI communicator than MPI_COMM_WORLD to FNVInitP
|
---|
49 | !
|
---|
50 | ! .true. (communicator can differ from MPI_COMM_WORLD)
|
---|
51 | ! .false. (communicator must be MPI_COMM_WORLD)
|
---|
52 | !
|
---|
53 | ! logical SUNDIALS_MPI_COMM_F2C
|
---|
54 | ! parameter (SUNDIALS_MPI_COMM_F2C=)
|
---|
55 |
|
---|
56 |
|
---|