MODULE Main_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   INTEGER :: ndiv = 0       ! Maximum number of subdivision used by the mesher.
END MODULE Main_Module