MODULE Masses_Module
!-----------------------------------------------------------------------
!  amass   Mass of atom A.
!  bmass   Mass of atom B.
!  cmass   Mass of atom C.
!  usys    Hyperspherical reduced mass.
!  usys2   Two times the hyperspherical reduced mass.
!-----------------------------------------------------------------------
   USE Numeric_kinds_Module
   IMPLICIT NONE
   SAVE
   REAL(KIND=dp) amass, bmass, cmass, usys, usys2
   NAMELIST / mass  / amass, bmass, cmass
END MODULE Masses_Module