modified clcg4 test 41/14641/2
Anais AUBERT [Mon, 9 Jun 2014 08:04:07 +0000 (10:04 +0200)]
Change-Id: I9c92ab41171b5ca63a59d4c75a7a41f76ae22bad

scilab/modules/randlib/tests/unit_tests/grand_clcg4.dia.ref
scilab/modules/randlib/tests/unit_tests/grand_clcg4.tst

index 0235eaf..b92fbf5 100644 (file)
@@ -1,66 +1,46 @@
-
 // =============================================================================
-
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-
 // Copyright (C) ????-2008 - INRIA
-
 //
-
 //  This file is distributed under the same license as the Scilab package.
-
 // =============================================================================
-
 grand('setgen','clcg4');
-
 // Low level test for grand
-
 //**********************************************************************
-
 //     A test program for the bottom level routines
-
 //     Scilab implementation of tstbot.f
-
 //**********************************************************************
-
-NB       = 10;
-
-NR       = 1000;
-
+NB       = 10
+NB  = 
+    10.
+NR       = 1000
+NR  = 
+    1000.
 answer   = ones(NB,NR);
-
-genlst   = [1,5,10,20,32];
-
+genlst   = [1,5,10,20,32]
+genlst  = 
+    1.    5.    10.    20.    32.
 nbad     = 0;
-
 str      = ['For five virtual generators of the 101\n' ..
            +' This test generates '+string(NB)+' numbers then resets the block\n'..
            +'      and does it again\n' ..
            +' Any disagreements are reported -- there should be none'];
-
 mprintf(str)
 For five virtual generators of the 101
  This test generates 10 numbers then resets the block
       and does it again
  Any disagreements are reported -- there should be none
 //
-
 //     Set up Generators
-
 //
-
 grand('setall',12345,54321,6789,9876);
-
 //
-
 //     For a selected set of generators
-
 //
-
 for ixgen = 1:5
     igen = genlst(ixgen)
     grand('setcgn',igen);
-    mprintf(' Testing generator '+string(igen));
+    mprintf(' Testing generator '+string(igen)+'\n');
     //
     //     Use NB blocks
     //
@@ -94,26 +74,31 @@ for ixgen = 1:5
     end
 
     mprintf(' Finished testing generator '+string(igen)+'\n');
-    mprintf(' Test completed successfully');
+    mprintf(' Test completed successfully\n');
        
-endigen  = 
-
-  1
- Testing generator 1 Finished testing generator 1
- Test completed successfullyigen  = 
-
-  5
- Testing generator 5 Finished testing generator 5
- Test completed successfullyigen  = 
-
-  10
- Testing generator 10 Finished testing generator 10
- Test completed successfullyigen  = 
-
-  20
- Testing generator 20 Finished testing generator 20
- Test completed successfullyigen  = 
-
-  32
- Testing generator 32 Finished testing generator 32
+end
+igen  = 
+    1.
+ Testing generator 1
+ Finished testing generator 1
+ Test completed successfully
+igen  = 
+    5.
+ Testing generator 5
+ Finished testing generator 5
+ Test completed successfully
+igen  = 
+    10.
+ Testing generator 10
+ Finished testing generator 10
+ Test completed successfully
+igen  = 
+    20.
+ Testing generator 20
+ Finished testing generator 20
+ Test completed successfully
+igen  = 
+    32.
+ Testing generator 32
+ Finished testing generator 32
  Test completed successfully
index 5865b85..32ab3a7 100644 (file)
@@ -13,10 +13,10 @@ grand('setgen','clcg4');
 //     A test program for the bottom level routines
 //     Scilab implementation of tstbot.f
 //**********************************************************************
-NB       = 10;
-NR       = 1000;
+NB       = 10
+NR       = 1000
 answer   = ones(NB,NR);
-genlst   = [1,5,10,20,32];
+genlst   = [1,5,10,20,32]
 nbad     = 0;
 
 str      = ['For five virtual generators of the 101\n' ..
@@ -39,7 +39,7 @@ grand('setall',12345,54321,6789,9876);
 for ixgen = 1:5
     igen = genlst(ixgen)
     grand('setcgn',igen);
-    mprintf(' Testing generator '+string(igen));
+    mprintf(' Testing generator '+string(igen)+'\n');
     //
     //     Use NB blocks
     //
@@ -73,6 +73,6 @@ for ixgen = 1:5
     end
 
     mprintf(' Finished testing generator '+string(igen)+'\n');
-    mprintf(' Test completed successfully');
+    mprintf(' Test completed successfully\n');
        
 end