Changeset 4857 for trunk/psLib/src/math/psRandom.c

Timestamp:

Aug 23, 2005, 1:23:05 PM (21 years ago)

Author:

gusciora

Message:

Eliminated gsl calls in psFunctions.c.

File:

• trunk/psLib/src/math/psRandom.c (modified) (2 diffs)

trunk/psLib/src/math/psRandom.c

@@ -10 +10 @@
 *  @author GLG, MHPCC
 *
-*  @version $Revision: 1.10 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2005-07-12 19:12:01 $
+*  @version $Revision: 1.11 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2005-08-23 23:23:05 $
 *
 *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -130 +130 @@
 }
 
+double p_psRandomGaussian(const psRandom *r, double sigma)
+{
+    // Check null psRandom variable
+    if(r == NULL) {
+        psError(PS_ERR_UNEXPECTED_NULL,
+                true,
+                PS_ERRORTEXT_psRandom_NULL_RANDOM_VAR);
+        return(0);
+    } else {
+        return(gsl_ran_gaussian(r->gsl, sigma));
+    }
+}
+
 double psRandomPoisson(const psRandom *r, double mean)
 {