MODULE PES_Module IMPLICIT NONE SAVE CHARACTER(LEN=25) PES_Name ! A unique name for the potential energy surface being used. CHARACTER(LEN=25) PesNaml ! A unique name for the potential energy surface being used. CHARACTER(LEN=25) PesNamu ! A unique name for the potential energy surface being used. CHARACTER(LEN=25) PesNamd ! A unique name for the potential energy surface being used. NAMELIST/PotentialNames/ PES_Name, PesNaml, PesNamu, PesNamd END MODULE PES_Module