diff --git a/Cantera/src/thermo/SingleSpeciesTP.cpp b/Cantera/src/thermo/SingleSpeciesTP.cpp
index 592041c3d..6c3072474 100644
--- a/Cantera/src/thermo/SingleSpeciesTP.cpp
+++ b/Cantera/src/thermo/SingleSpeciesTP.cpp
@@ -331,6 +331,16 @@ namespace Cantera {
       er[0] = m_s0_R[0];
     }
 
+  /**
+     * Get the nondimensional Gibbs functions for the standard
+     * state of the species at the current T and reference pressure
+     * for the species.
+     */
+    void SingleSpeciesTP::getCp_R_ref(doublereal* cpr) const {
+	_updateThermo();
+	cpr[0] = m_cp0_R[0];
+    }
+
 
     /*
      * ------------------ Setting the State ------------------------