diff options
Diffstat (limited to 'science/at/files/patch-Kraken+covar.f')
| -rw-r--r-- | science/at/files/patch-Kraken+covar.f | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/science/at/files/patch-Kraken+covar.f b/science/at/files/patch-Kraken+covar.f deleted file mode 100644 index 663a96008a07..000000000000 --- a/science/at/files/patch-Kraken+covar.f +++ /dev/null @@ -1,24 +0,0 @@ ---- Kraken/covar.f~ Thu Feb 26 14:42:17 1998 -+++ Kraken/covar.f Fri Jan 12 17:40:53 2007 -@@ -252,8 +252,8 @@ - COMPLEX NOISE( * ) - - DO IRD = 1, NRD -- X = RAN( ISEED ) + 0.000001 -- Y = RAN( ISEED ) -+ X = RAN( ISEED(1) ) + 0.000001 -+ Y = RAN( ISEED(1) ) - - NOISE( IRD ) = SIGMA * - & SQRT( -LOG( X ) ) * EXP( CI * 2.0 * PI * Y ) -@@ -287,8 +287,8 @@ - DO MODE = 1, M - - C --- compute the random coefficient -- X = RAN( ISEED ) + 0.000001 -- Y = RAN( ISEED ) -+ X = RAN( ISEED(1) ) + 0.000001 -+ Y = RAN( ISEED(1) ) - COEF = SQRT( -LOG( X ) ) * EXP( CI * 2.0 * PI * Y ) - - C --- loop over receivers |