MODULE DiatomicPot_MODULE
   IMPLICIT NONE
   SAVE
   CHARACTER(LEN=25) DiatomicPot   ! A unique name for the potential energy.
END MODULE DiatomicPot_MODULE