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

Timestamp:

Nov 27, 2001, 10:19:36 PM (24 years ago)

Author:

aubourg

Message:

darwin

File:

• trunk/SophyaPI/PIext/servnobjm.cc (modified) (1 diff)

trunk/SophyaPI/PIext/servnobjm.cc

@@ -948 +948 @@
 fputs("{return ((int_8)((v<0.) ? v-0.1 : v+0.1))&flg;}\n", fip);
 fputs("/* ------ Some random number generators --------- */ \n", fip);
+fputs("#if defined(__ppc__) && defined(__MACH__)",fip);
+fputs("#define drand48() ((double)(random())/LONG_MAX",fip);
+fputs("#endif",fip);
 fputs("#define frand01() ( (float) drand48() ) \n", fip);
 fputs("#define drand01() drand48()  \n", fip);