types.f90

module types
  implicit none
  integer, parameter :: sp = kind(1.e0)
  integer, parameter :: dp = kind(1.d0)
end module types