Commit 89408c20 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

correction

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 2268
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 5347f716
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: tf_gsl.c,v 1.2 2007-05-09 10:48:48 tforb Exp $
* $Id: tf_gsl.c,v 1.3 2007-05-09 10:50:35 tforb Exp $
* \author Thomas Forbriger
* \date 07/05/2007
*
......@@ -19,7 +19,7 @@
#define TF_TF_GSL_C_CC_VERSION \
"TF_TF_GSL_C_CC V1.0 "
#define TF_TF_GSL_C_CC_CVSID \
"$Id: tf_gsl.c,v 1.2 2007-05-09 10:48:48 tforb Exp $"
"$Id: tf_gsl.c,v 1.3 2007-05-09 10:50:35 tforb Exp $"
#include <gsl/gsl_rng.h>
#include <gsl/gsl_randist.h>
......@@ -45,8 +45,8 @@ int tf_gsl_rng_ugaussian__(doublereal* a, integer* n)
/* seed the generator with the current time */
gsl_rng_set(R, time(0));
/* read values from the generator, using the desired distribution */
for (i=0; i<=n; ++i)
{ a[i]=doublereal(gsl_ran_ugaussian(R)); }
for (i=0; i<=*n; ++i)
{ a[i]=(doublereal)gsl_ran_ugaussian(R); }
/* discard the random number generator */
gsl_rng_free(R);
} /* tf_gsl_rng_ugaussian__ */
......@@ -70,8 +70,8 @@ int tf_gsl_rng_uniform__(doublereal* a, integer* n)
/* seed the generator with the current time */
gsl_rng_set(R, time(0));
/* read values from the generator, using the desired distribution */
for (i=0; i<=n; ++i)
{ a[i]=doublereal(gsl_rng_uniform(R)); }
for (i=0; i<=*n; ++i)
{ a[i]=(doublereal)gsl_rng_uniform(R); }
/* discard the random number generator */
gsl_rng_free(R);
} /* tf_gsl_rng_uniform__ */
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment