Changeset 284 for rdnap

Timestamp:

Mar 3, 2011, 9:06:11 AM (14 years ago)

Author:

Rick van der Zwet

Message:

Some more presision needed.

File:

• rdnap/rdnap.pl (modified) (1 diff)

rdnap/rdnap.pl

@@ -26 +26 @@
 if ($command eq "rd2etrs") {
   ($res1, $res2, $res3) = from_rd($raw1, $raw2, $raw3);
-  $res1 = sprintf("%.2f", $res1);
-  $res2 = sprintf("%.2f", $res2);
-  $res3 = sprintf("%.2f", $res3);
+  $res1 = sprintf("%.5f", $res1);
+  $res2 = sprintf("%.5f", $res2);
+  $res3 = sprintf("%.5f", $res3);
 } elsif( $command eq "etrs2rd") {
   ($res1, $res2, $res3) = to_rd($raw1, $raw2, $raw3);