!****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
!  - definitions for pi (3.14...) and compi (imaginary unit)
!
! SOURCE
!
! wwvv never used
!      this would be a nice place to hold things as pi, twopi
!      and so on

module constants
   implicit none
   save
   private
   public rKind,dpKind,iKind,pi,compi

   integer,              parameter :: rKind = kind(1.0d0)
   integer,              parameter :: dpKind = kind(1.0d0)
   integer,              parameter :: iKind = kind(1)
   real(kind=dpkind),    parameter :: pi     = 4*atan(1.0_dpkind)
   complex(kind=dpkind), parameter :: compi  = (0.0_dpkind,1.0_dpkind)

end module constants
!****