!****h* General/Constants
!
!  SYNOPSIS
!     Module defining common constants
!
!  COPYRIGHT
!     (C) 2004 by WL|Delft Hydraulics
!
!  AUTHOR
!     Arjen Markus
!
!  DESCRIPTION
!  This module contains integer and real parameters:
!  - kind parameters for single (sp) and double (dp) precision
!
! SOURCE

module CONSTANTS
   implicit none

   integer, parameter     :: sp = kind(1.0)
   integer, parameter     :: dp = kind(1.0d00)

end module
!****