Mercurial > forge

changeset 2819:8f24e10508f7 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix example
author abarth93
date Sun, 17 Dec 2006 21:01:58 +0000
parents 7088851def1d
children bfddacb14193
files main/optiminterp/src/example_optiminterp.F90
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/main/optiminterp/src/example_optiminterp.F90	Fri Dec 15 16:16:38 2006 +0000
+++ b/main/optiminterp/src/example_optiminterp.F90	Sun Dec 17 21:01:58 2006 +0000
@@ -53,8 +53,7 @@
  ! random_number in the hope that the results will be
  ! platform independent
 
- integer(8), parameter :: A = 1664525_8, B = 1013904223_8,
- &              Mo = 4294967296_8
+ integer(8), parameter :: A = 1664525_8, B = 1013904223_8, Mo = 4294967296_8
  integer(8) :: next = 0_8