Changeset 3889 in Sophya for trunk/SophyaLib/BaseTools/randr48.cc

Timestamp:

Sep 27, 2010, 11:24:10 PM (15 years ago)

Author:

ansari

Message:

correction bug SetSeed() ds ThSDR48RandGen + retag en V2_2, Reza 27/09/2010

File:

• trunk/SophyaLib/BaseTools/randr48.cc (modified) (6 diffs)

trunk/SophyaLib/BaseTools/randr48.cc

@@ -45 +45 @@
 }
 
+/*! 
+  \brief Initialize the state of the random generator object using the integer value argument
+
+  \warning This method changes the global random generator drand48() state
+*/
 void DR48RandGen::SetSeed(long int  seed)
 {
@@ -50 +55 @@
 }
 
+/*! 
+  \brief Initialize the state of the random generator object using the short integer array
+
+  \warning This method changes the global random generator drand48() state
+*/
 void DR48RandGen::SetSeed(uint_2 seed[3])
 {
   seed48(seed);
 }
+
+//! Return the random generator state 
 void DR48RandGen::GetSeed(uint_2 seed[3])
 {
@@ -68 +80 @@
 }
 
+/*! 
+  \brief Random Initialization of the state of the random generator object using the system clock
+
+  \warning This method changes the global random generator drand48() state
+*/
 void DR48RandGen::AutoInit(int lp)
 {
@@ -185 +202 @@
 }
 
+/*! 
+  \brief Initialize the state of the random generator object using the integer value argument
+
+  \warning This method changes the global random generator drand48() state
+*/
 void ThSDR48RandGen::SetSeed(long int seed)
 {
@@ -190 +212 @@
   ths_rand->lock();
   DR48RandGen::SetSeed(seed);
+  if(!fg_nothrsafe) idx_ = rseq_.Size();
   ths_rand->unlock();
   return;
 }
 
+/*! 
+  \brief Initialize the state of the random generator object using the short integer array
+
+  \warning This method changes the global random generator drand48() state
+*/
 void ThSDR48RandGen::SetSeed(uint_2 seed[3])
 {
   if (ths_rand == NULL)  ths_rand = new ThSafeOp; 
   ths_rand->lock();
-  SetSeed_P(seed);
+  DR48RandGen::SetSeed(seed);
+  if(!fg_nothrsafe) idx_ = rseq_.Size();
   ths_rand->unlock();
 }
 
+//! Return the random generator state 
 void ThSDR48RandGen::GetSeed(uint_2 seed[3])
 {
   if (ths_rand == NULL)  ths_rand = new ThSafeOp; 
   ths_rand->lock();
-  GetSeed_P(seed);
+  DR48RandGen::GetSeed(seed);
   ths_rand->unlock();
   return;
 }
 
-void ThSDR48RandGen::SetSeed_P(uint_2 seed[3])
-{
-  DR48RandGen::SetSeed(seed);
-}
-
-void ThSDR48RandGen::GetSeed_P(uint_2 seed[3])
-{
-  DR48RandGen::GetSeed(seed);
-}
-
+
+/*! 
+  \brief Random Initialization of the state of the random generator object using the system clock
+
+  \warning This method changes the global random generator drand48() state
+*/
 void ThSDR48RandGen::AutoInit(int lp)
 {
@@ -245 +271 @@
     return(rseq_(idx_++));
   }
+}
+
+void ThSDR48RandGen::GetSeed_P(uint_2 seed[3])
+{
+  return DR48RandGen::GetSeed(seed);
 }