From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 20:58:09 +0000 (+0000)
Subject: Correct it to do 9-digit precision.
X-Git-Tag: 1-2~33
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=c9ee404b343772aa2b98f99ccb5df98b61f769bf;p=cupl.git

Correct it to do 9-digit precision.
---

diff --git a/monitor.c b/monitor.c
index 1ab14ea..80a71d1 100644
--- a/monitor.c
+++ b/monitor.c
@@ -183,9 +183,9 @@ void cupl_scalar_write(char *name, scalar quant)
 	needspace(fieldwidth);
 
     if (0.001 < fabs(quant) && fabs(quant) < 100000)
-	(void) printf("%*f", fieldwidth, quant);
+	(void) printf("%*.9f", fieldwidth, quant);
     else
-	(void) printf("%*E", fieldwidth, quant);
+	(void) printf("%*.9E", fieldwidth, quant);
 }
 
 void cupl_string_write(char *s)