diff options
Diffstat (limited to 'science/at/files/patch-Kraken+krakenc.f')
| -rw-r--r-- | science/at/files/patch-Kraken+krakenc.f | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/science/at/files/patch-Kraken+krakenc.f b/science/at/files/patch-Kraken+krakenc.f deleted file mode 100644 index a8bb198484b5..000000000000 --- a/science/at/files/patch-Kraken+krakenc.f +++ /dev/null @@ -1,13 +0,0 @@ ---- Kraken/krakenc.f~ Thu May 14 08:46:37 1998 -+++ Kraken/krakenc.f Fri Jan 12 17:39:37 2007 -@@ -404,8 +404,8 @@ - - IF ( SQRT( OMEGA2 ) / REAL( SQRT( X ) ) .GT. CHIGH ) THEN - C --- Mode outside, restart at a random point -- CTRY = CLOW + RAN( ISEED ) * ( CHIGH - CLOW ) -- & + ( 0.0, 0.01 ) * RAN( ISEED ) * CLOW -+ CTRY = CLOW + RAN( ISEED(1) ) * ( CHIGH - CLOW ) -+ & + ( 0.0, 0.01 ) * RAN( ISEED(1) ) * CLOW - - X = ( 1.0, 0.0 ) * OMEGA2 / CTRY ** 2 - |