From 282bc2a6b7101f2d1956ff2103e0bab186a72eea Mon Sep 17 00:00:00 2001 From: Dave Goodwin Date: Thu, 24 Jul 2003 00:18:21 +0000 Subject: [PATCH] *** empty log message *** --- tools/templates/f77/demo_ftnlib.cpp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tools/templates/f77/demo_ftnlib.cpp b/tools/templates/f77/demo_ftnlib.cpp index 4f11ea943..92fe6c4cd 100644 --- a/tools/templates/f77/demo_ftnlib.cpp +++ b/tools/templates/f77/demo_ftnlib.cpp @@ -129,23 +129,23 @@ extern "C" { } doublereal enthalpy_mass_() { - return _gas->enthalpy_mole(); + return _gas->enthalpy_mass(); } doublereal intenergy_mass_() { - return _gas->intEnergy_mole(); + return _gas->intEnergy_mass(); } doublereal entropy_mass_() { - return _gas->entropy_mole(); + return _gas->entropy_mass(); } doublereal cp_mass_() { - return _gas->cp_mole(); + return _gas->cp_mass(); } doublereal gibbs_mass_() { - return _gas->gibbs_mole(); + return _gas->gibbs_mass(); } void equilibrate_(char* opt, ftnlen lenopt) {