[Dart-dev] [6173] DART/branches/development/random_nr/random_nr_mod.f90: The code in this module has been removed ever since we added the

[nancy at ucar.edu]

Revision: 6173
Author:   nancy
Date:     2013-05-29 09:57:44 -0600 (Wed, 29 May 2013)
Log Message:
-----------
The code in this module has been removed ever since we added the 
new random number generator code, but i've added more comments about what
the names of each of the new routines are which replace the older ones.

Modified Paths:
--------------
    DART/branches/development/random_nr/random_nr_mod.f90

-------------- next part --------------
Modified: DART/branches/development/random_nr/random_nr_mod.f90
===================================================================
--- DART/branches/development/random_nr/random_nr_mod.f90	2013-05-29 15:55:41 UTC (rev 6172)
+++ DART/branches/development/random_nr/random_nr_mod.f90	2013-05-29 15:57:44 UTC (rev 6173)
@@ -12,5 +12,37 @@
 
 
 ! THIS MODULE IS DEPRECATED.  USE THE ROUTINES IN random_seq_mod INSTEAD
+!
+! the old code included these public interfaces and types; the suggested 
+! replacements from the random_seq_mod are:
+! 
+! random_seq_type -> random_seq_type 
+!  unchanged: type(random_seq_type) :: r 
+! 
+! init_ran1(r, seed) -> init_random_seq(r, seed)
+!  same usage:  call init_random_seq(r, seed)
+!   where seed is optional. old seed needed to be negative or
+!   less than 54000 if positive.  the new seed can be
+!   any integer value.
+! 
+! ran1(r) -> random_uniform(r)
+!  same usage: val = random_uniform(r)
+! 
+! gasdev(r) -> random_gaussian(r, mean, stddev)
+!  gasdev took only a single arg - the type.  random gaussian takes
+!  3 args:  the type, the mean, and the standard_deviation.  to get
+!  the equivalent function use: 
+!     val = random_gaussian(r, 0.0_r8, 1.0_r8)
+!  which gives you a draw from a gaussian distribution centered on
+!  0.0, with a standard deviation of 1.0 .  obviously with the 
+!  new interface you can directly generate a draw from a gaussian 
+!  with a different mean and/or standard deviation.
+! 
+! the new module also includes two other routines which may be of use:
+!  several_random_gaussians(r, mean, standard_deviation, n, rnum)
+!  twod_gaussians(r, mean, cov, rnum)
+! see the new module html documentation file for more details.
+!
 
-end module random_nr_mod
+end module 
+