From 960eed173e5ce5fc5ef52aa548718977ab979fcd Mon Sep 17 00:00:00 2001 From: Helen Kershaw Date: Fri, 29 Sep 2023 12:24:57 -0600 Subject: [PATCH] comment - for completeness ran_twist is from numerical recipies --- assimilation_code/modules/utilities/random_seq_mod.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/assimilation_code/modules/utilities/random_seq_mod.f90 b/assimilation_code/modules/utilities/random_seq_mod.f90 index 3a037be8cb..5d22007591 100644 --- a/assimilation_code/modules/utilities/random_seq_mod.f90 +++ b/assimilation_code/modules/utilities/random_seq_mod.f90 @@ -42,7 +42,7 @@ module random_seq_mod ! the following routines were transcribed from C to F90, originally ! from the GNU scientific library: init_ran, ran_unif, ran_gauss, -! ran_gamma +! ran_gamma, ran_twist integer, parameter :: N = 624 ! period parameters integer, parameter :: M = 397