Changeset 4083

Timestamp:

Jun 1, 2005, 1:51:25 PM (21 years ago)

Author:

evanalst

Message:

Fix psRandomAlloc to set type and seed properly.

Location:

trunk/psLib/src

Files:

• dataManip/psRandom.c (modified) (3 diffs)
• math/psRandom.c (modified) (3 diffs)

trunk/psLib/src/dataManip/psRandom.c

@@ -10 +10 @@
 *  @author GLG, MHPCC
 *
-*  @version $Revision: 1.7 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2005-02-17 19:26:23 $
+*  @version $Revision: 1.8 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2005-06-01 23:51:25 $
 *
 *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -69 +69 @@
         if(seed == 0) {
             gsl_rng_set(myRNG->gsl,p_psRandomGetSystemSeed());
+        } else {
+            gsl_rng_set(myRNG->gsl,seed);
         }
+        myRNG->type = type;
         break;
 
@@ -78 +81 @@
         break;
     }
+
     return(myRNG);
 }

trunk/psLib/src/math/psRandom.c

@@ -10 +10 @@
 *  @author GLG, MHPCC
 *
-*  @version $Revision: 1.7 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2005-02-17 19:26:23 $
+*  @version $Revision: 1.8 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2005-06-01 23:51:25 $
 *
 *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -69 +69 @@
         if(seed == 0) {
             gsl_rng_set(myRNG->gsl,p_psRandomGetSystemSeed());
+        } else {
+            gsl_rng_set(myRNG->gsl,seed);
         }
+        myRNG->type = type;
         break;
 
@@ -78 +81 @@
         break;
     }
+
     return(myRNG);
 }