Added the singlet diradical correlation function