MODULE Constnts_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   REAL(Kind=WP_Kind) avagadro  ! Avagadros number in particles/mole.
   REAL(Kind=WP_Kind) clight    ! This is the speed of light in cm/sec.
   REAL(Kind=WP_Kind) boltzman  ! This is Boltzman's constant in ergs/Kelvin.
END MODULE Constnts_Module