Changeset 3414

Timestamp:

Mar 13, 2005, 4:24:23 PM (21 years ago)

Author:

eugene

Message:

pushing scalar precision to 12 digits

Location:

trunk/Ohana/src/opihi/lib.shell

Files:

• check_stack.c (modified) (1 diff)
• convert_to_RPN.c (modified) (3 diffs)
• dvomath.c (modified) (1 diff)
• variable.c (modified) (1 diff)

trunk/Ohana/src/opihi/lib.shell/check_stack.c

@@ -3 +3 @@
 int check_stack (StackVar *stack, int Nstack, int validsize) {
 
+  double tmp;
   int i, Nx, Ny, Nv, size;
   char *c;

trunk/Ohana/src/opihi/lib.shell/convert_to_RPN.c

@@ -1 +1 @@
 # include "opihi.h"
-/* # define DUMPSTACK * for tests */
+# define DUMPSTACK 0
 
 StackVar *convert_to_RPN (int argc, char **argv, int *nstack) {
@@ -176 +176 @@
   free (argv);
 
-#ifdef DUMPSTACK
+# if (DUMPSTACK)
   for (i = 0; i < Nstack; i++) {
     fprintf (stderr, "%s ", stack[i].name);
@@ -185 +185 @@
   }
   if (Nstack > 0) fprintf (stderr, "\n");
-#endif
+# endif
 
   return (stack);

trunk/Ohana/src/opihi/lib.shell/dvomath.c

@@ -63 +63 @@
   switch (*size) {
     case 0:
-      sprintf (outname, "%g", stack[0].Float);
+      sprintf (outname, "%.12g", stack[0].Float);
       break;
 

trunk/Ohana/src/opihi/lib.shell/variable.c

@@ -83 +83 @@
   char value[1024];
 
-  sprintf (value, "%.9g", dvalue);
+  sprintf (value, "%.12g", dvalue);
   set_str_variable (name, value);
   return (TRUE);