text: #define NPRE 4
  module amr_parameters
  
    ! Define real types
    integer,parameter::sp=kind(1.0E0)
  #ifndef NPRE
    integer,parameter::dp=kind(1.0E0) ! default
  #else
  #if NPRE==4
    integer,parameter::dp=kind(1.0E0) ! real*4
  #else
    integer,parameter::dp=kind(1.0D0) ! real*8
  #endif
  #endif
    integer,parameter::ndim=3
    integer,parameter::twotondim=2**ndim
    integer,parameter::threetondim=3**ndim
    integer,parameter::twondim=2*ndim
    ! Vectorization parameter
    integer,parameter::nvector=16
  end module
  
  