Index: /trunk/BNC/src/bncutils.cpp
===================================================================
--- /trunk/BNC/src/bncutils.cpp	(revision 7655)
+++ /trunk/BNC/src/bncutils.cpp	(revision 7656)
@@ -747,5 +747,5 @@
 QString fortranFormat(double value, int width, int prec) {
   int    expo = value == 0.0 ? 0 : int(log10(fabs(value)));
-  double mant = value == 0.0 ? 0 : value / pow(10, expo);
+  double mant = value == 0.0 ? 0 : value / pow(10.0, double(expo));
   if (fabs(mant) >= 1.0) {
     mant /= 10.0;