MODULE Junk_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   INTEGER indexsect
   LOGICAL newsect
END MODULE Junk_Module