MODULE Ederiv_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   LOGICAL :: EDeriv=.True.   ! Equal to TRUE if Energy Derivative are needed
END MODULE Ederiv_Module