!=======================================================================

! module data

!   use typedef, only: &
!        int32, real64

!   implicit none

!   ! integer(kind=int32), parameter :: &
!   !      jmz=jmzmacro
!   integer(kind=int32), parameter :: &
!        jmz=1983

!   ! integer(kind=int32), parameter :: &
!   !      nburn=nburnmacro
!   integer(kind=int32), parameter :: &
!        nburn=8192

!   real(kind=real64), dimension(0:jmz/2,0:(nburn/100)*jmz/5) :: &
!        bigthing

!   real :: r

!   save

! end module data

!=======================================================================

! module data
!   !use typedef, only: real64
!   implicit none
!   INTEGER, PARAMETER :: real64 = SELECTED_REAL_KIND(15)
!   real(kind=real64) :: x
!   common/test/x
!   save
! end module data


module data

  ! use typedef, only: &
  !      int32, real64, real32

  use griddef, only: &
       jmzdefault => jmz

  use nburndef, only: &
       nburndefault => nburn

  implicit none

  save

  INTEGER, PARAMETER :: real64 = SELECTED_REAL_KIND(15)
  INTEGER, PARAMETER :: real32 = SELECTED_REAL_KIND(6)
  INTEGER, PARAMETER :: int32 = SELECTED_INT_KIND(8)

  ! integer, parameter :: &
  !      jmz=jmzmacro

  ! integer, parameter :: &
  !      nburn=nburnmacro

  ! integer(kind=int32), parameter :: &
  !      jmz=1983

  ! integer(kind=int32), parameter :: &
  !      nburn=8192

  integer(kind=int32), parameter :: &
       jmz={JMZ}

  integer(kind=int32), parameter :: &
       nburn={NBURN}

  {insert [SOURCE]/kepdef.f90:kepcom}

contains

  subroutine check_dims()

  print*, '[jmz]', jmzdefault, jmz
  print*, '[nburn]', nburndefault, nburn

end subroutine check_dims

end module data