!
!***********************************************************************
!                                                                      *
      MODULE cons_C
!                                                                      *
!***********************************************************************
      USE vast_kind_param, ONLY:  DOUBLE
!...Created by Pacific-Sierra Research 77to90  4.3E  10:42:40   1/ 2/07
!...Modified by Charlotte Froese Fischer
!                     Gediminas Gaigalas  10/05/17
      REAL(DOUBLE) :: ZERO  = 0.0D00, &
                      HALF  = 0.5D00, &
                      TENTH = 0.1D00, &
                      ONE   = 1.0D00, &
                      TWO   = 2.0D00, &
                      THREE = 3.0D00, &
                      FOUR  = 4.0D00, &
                      SEVEN = 7.0D00, &
                      TEN   =10.0D00, &
                      ELEVEN=11.0D00, &
                      EPS   = 1.0D-08
      END MODULE cons_C
