diff --git a/src/EnergyPlus/ExtendedHI.cc b/src/EnergyPlus/ExtendedHI.cc
index 1e71b9ad173..8f63eb0785c 100644
--- a/src/EnergyPlus/ExtendedHI.cc
+++ b/src/EnergyPlus/ExtendedHI.cc
@@ -234,7 +234,8 @@ namespace ExtendedHI {
                 SolFla,
                 Tf,
                 [&](Real64 Tf) {
-                    return (Tf - Ta) / Ra_bar(Tf, Ta) + (Pc - Pa) * (Tf - Ta) / ((ZsRs + Za_bar) * (Tf - Ta) + r * Ra_bar(Tf, Ta) * (Ts_bar - Tf)) -
+                    Real64 Ra_barTfTa = Ra_bar(Tf, Ta);
+                    return (Tf - Ta) / Ra_barTfTa + (Pc - Pa) * (Tf - Ta) / ((ZsRs + Za_bar) * (Tf - Ta) + r * Ra_barTfTa * (Ts_bar - Tf)) -
                            (Tc - Ts_bar) / Rs;
                 },
                 Ta,
@@ -402,7 +403,8 @@ namespace ExtendedHI {
                 SolFla,
                 Tf,
                 [&](Real64 Tf) {
-                    return (Tf - Ta) / Ra_bar(Tf, Ta) + (Pc - Pa) * (Tf - Ta) / ((ZsRs + Za_bar) * (Tf - Ta) + r * Ra_bar(Tf, Ta) * (Ts_bar - Tf)) -
+                    Real64 Ra_barTfTa = Ra_bar(Tf, Ta);
+                    return (Tf - Ta) / Ra_barTfTa + (Pc - Pa) * (Tf - Ta) / ((ZsRs + Za_bar) * (Tf - Ta) + r * Ra_barTfTa * (Ts_bar - Tf)) -
                            (Tc - Ts_bar) / Rs;
                 },
                 Ta,