MODULE InputFile_Module
   IMPLICIT NONE
   SAVE
   CHARACTER(LEN=100) InputFile
   NAMELIST/IFileName/ InputFile
END MODULE InputFile_Module