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