impure function computeHeat input Real T; input Real Tbar; input Real Q; output Real heat; end computeHeat;