MODULE VibFun_Module
   USE Numeric_Kinds_Module
   SAVE
   LOGICAL, PARAMETER:: Old_VibFun=.False.
END MODULE VibFun_Module