MODULE TolExpc_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   REAL(Kind=WP_Kind) tolexp  !
   DATA  tolexp /0.85/
END MODULE TolExpc_Module