MODULE DiatomicPot_MODULE
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   CHARACTER(LEN=25) DiatomicPot   ! A unique name for the potential energy.
   LOGICAL FixedMaximum
   REAL(KIND=WP_KIND) FixedMax
END MODULE DiatomicPot_MODULE