Changeset 1469 in Sophya

Timestamp:

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

Author:

cmv

Message:

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

Location:

trunk/SophyaPI/PIext

Files:

• cxxexecutor.cc (modified) (1 diff)
• servnobjm.cc (modified) (2 diffs)

trunk/SophyaPI/PIext/cxxexecutor.cc

@@ -366 +366 @@
     os<<"#include \""<<mIncImportList[i]<<"\""<<endl;
 os<<endl;
+
+os<<"//---- function to compare bits on double \n"
+  <<"int_8 BitCmp64(double v,int_8 flg) \n"
+  <<"{return ((int_8)((v<0.) ? v-0.1 : v+0.1))&flg;} \n"
+  <<endl;
 
 os<<"//---- function for Adding and displaying Objects  " << endl;

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);