DISPATCH
amr_parameters.f90
1 #define NPRE 4
2 module amr_parameters
3 
4  ! Define real types
5  integer,parameter::sp=kind(1.0e0)
6 #ifndef NPRE
7  integer,parameter::dp=kind(1.0e0) ! default
8 #else
9 #if NPRE==4
10  integer,parameter::dp=kind(1.0e0) ! real*4
11 #else
12  integer,parameter::dp=kind(1.0d0) ! real*8
13 #endif
14 #endif
15  integer,parameter::ndim=3
16  integer,parameter::twotondim=2**ndim
17  integer,parameter::threetondim=3**ndim
18  integer,parameter::twondim=2*ndim
19  ! Vectorization parameter
20  integer,parameter::nvector=16
21 end module
22