diff --git a/src/epics/util/lib/Product.pm b/src/epics/util/lib/Product.pm
index f034b609db98035fd0355736528def5520a3b970..45e32cdd6d3371f75b4ed0a4083cd3a0880de885 100644
--- a/src/epics/util/lib/Product.pm
+++ b/src/epics/util/lib/Product.pm
@@ -35,7 +35,7 @@ sub printEpics {
 sub printFrontEndVars  {
         my ($i) = @_;
         print ::OUT "double \L$::xpartName[$i]\[8\];\n";
-        print ::OUT "double $::xpartName[$i]\_CALC;\n";
+        print ::OUT "float $::xpartName[$i]\_CALC;\n";
 }
 
 # Check inputs are connected