Changeset 3102 in Sophya for trunk/SophyaLib

Timestamp:

Nov 2, 2006, 4:23:21 PM (19 years ago)

Author:

ansari

Message:

Petite erreur de compil ds srandgen.c detecte par SGI - Reza 02/11/2006

File:

• trunk/SophyaLib/BaseTools/srandgen.c (modified) (1 diff)

trunk/SophyaLib/BaseTools/srandgen.c

@@ -252 +252 @@
 int PoissRand(double mu)
 {
-  double pp,ppi;
+  double pp,ppi,x;
+  int n;
   ppi = pp = exp(-mu);
-  double x = drand01();
-  int n = 0;
+  x = drand01();
+  n = 0;
   while (x > ppi) {
     n++;