Changeset 1469 in Sophya for trunk/SophyaPI/PIext/servnobjm.cc

Timestamp:

Apr 18, 2001, 11:05:13 AM (24 years ago)

Author:

cmv

Message:

BitCmp64(double,long long) cmv 18/4/01

File:

• trunk/SophyaPI/PIext/servnobjm.cc (modified) (2 diffs)

trunk/SophyaPI/PIext/servnobjm.cc

@@ -942 +942 @@
 fputs("#include <math.h> \n\n", fip);
 
+fputs("/* ------ Compare bits on double --------- */ \n", fip);
+fputs("typedef long long int_8;\n", fip);
+fputs("int_8 BitCmp64(double v,int_8 flg)\n", fip);
+fputs("{return ((int_8)((v<0.) ? v-0.1 : v+0.1))&flg;}\n", fip);
 fputs("/* ------ Some random number generators --------- */ \n", fip);
 fputs("#define frand01() ( (float) drand48() ) \n", fip);
@@ -1196 +1200 @@
 fputs("#include <math.h> \n", fip);
 
+fputs("/* ------ Compare bits on double --------- */ \n", fip);
+fputs("typedef long long int_8;\n", fip);
+fputs("int_8 BitCmp64(double v,int_8 flg)\n", fip);
+fputs("{return ((int_8)((v<0.) ? v-0.1 : v+0.1))&flg;}\n", fip);
 fputs("/* ------ Some random number generators --------- */ \n", fip);
 fputs("#define frand01() ( (float) drand48() ) \n", fip);