initial check in of double precision library of iemsvn2git-root

svn path=/trunk/externals/iem/iem_dp/; revision=17167

1 files changed, 61 insertions, 0 deletions

diff --git a/tabwrite__-help.pd b/tabwrite__-help.pd
new file mode 100644
index 0000000..2ac06a4
--- /dev/null
+++ b/tabwrite__-help.pd
@@ -0,0 +1,61 @@
+#N canvas 41 42 639 550 10;
+#X text 334 93 see also:;
+#X obj 128 82 table array98 1.7e+07;
+#X text 206 462 IEM KUG;
+#X text 190 450 musil;
+#X text 227 450 @;
+#X text 236 450 iem.at;
+#X text 189 472 Graz \, Austria;
+#X text 249 424 @;
+#X text 258 424 iem.at;
+#X text 190 424 zmoelnig;
+#X obj 403 92 tabwrite;
+#X floatatom 121 191 5 0 0 0 - - -;
+#X obj 199 240 t f b f;
+#X msg 218 271 1.698e+07;
+#X obj 121 219 t f f;
+#X msg 49 283 1.698e+07;
+#X obj 49 254 t b f;
+#X floatatom 49 331 0 0 0 0 - - -;
+#X obj 49 307 tabread__ array98;
+#X obj 166 307 tabwrite__ array98;
+#X floatatom 393 173 5 0 0 0 - - -;
+#X obj 393 201 t f f;
+#X msg 312 282 1.698e+07;
+#X obj 312 253 t b f;
+#X floatatom 312 330 0 0 0 0 - - -;
+#X obj 475 225 t f b f;
+#X msg 493 251 1.698e+07;
+#X obj 499 273 +;
+#X obj 129 107 table array99 1.7e+07;
+#X obj 312 307 tabread__ array99;
+#X obj 435 307 tabwrite array99;
+#X text 13 11 tabwrite__;
+#X text 14 27 tabwrite'';
+#X text 116 10 write number in a lookup table with double precision
+index (15 digits accurate);
+#X text 141 411 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 141 439 (c) Thomas Musil 2000 - 2013;
+#X connect 11 0 14 0;
+#X connect 12 0 19 0;
+#X connect 12 1 13 0;
+#X connect 12 2 19 2;
+#X connect 13 0 19 1;
+#X connect 14 0 16 0;
+#X connect 14 1 12 0;
+#X connect 15 0 18 0;
+#X connect 16 0 15 0;
+#X connect 16 1 18 1;
+#X connect 18 0 17 0;
+#X connect 20 0 21 0;
+#X connect 21 0 23 0;
+#X connect 21 1 25 0;
+#X connect 22 0 29 0;
+#X connect 23 0 22 0;
+#X connect 23 1 29 1;
+#X connect 25 0 30 0;
+#X connect 25 1 26 0;
+#X connect 25 2 27 1;
+#X connect 26 0 27 0;
+#X connect 27 0 30 1;
+#X connect 29 0 24 0;