13 November 2006 05:35:14 PM

_PRB
  A set of test programs for .


TEST0676
  R8_TO_BIN_EVEN2 puts a number into a bin.
  BIN_TO_R8_EVEN2 returns the bin limits.
  The bins are equally spaced between A and B.

  A = 10
  B = 20
  Total number of bins = 5

  Generate some random values C and put them in bins.

       C      Bin   Bin_Min  Bin_Max

     10.6406       1          10          12
     17.8971       4          16          18
     14.1138       3          14          16
     13.0527       2          12          14
     14.0651       3          14          16
     19.0652       5          18          20
     10.2361       1          10          12
       15.92       3          14          16
     9.58832       1          10          12
     17.8211       4          16          18
     10.4551       1          10          12
     21.1286       5          18          20
     9.94405       1          10          12
      11.683       1          10          12
     18.0112       5          18          20
     11.7623       1          10          12
     16.3432       4          16          18
     11.4207       1          10          12
     20.4558       5          18          20
      13.135       2          12          14
     17.0648       4          16          18
     20.8078       5          18          20
     18.1786       5          18          20
     19.9812       5          18          20
     16.6309       4          16          18
     17.5665       4          16          18
      21.818       5          18          20
     16.7512       4          16          18
     14.4365       3          14          16
     21.3448       5          18          20

TEST0835
  R82VEC_PART_QUICK_A reorders an R2 vector
    as part of a quick sort.
  Using initial random number seed = 123456789

  Before rearrangment:

     0         2.18418         2.95632
     1         8.29509          2.5617
     2         4.15307         2.06612
     3         2.57578         2.10996
     4         0.43829         2.63397
     5        0.617272         2.44954
     6         4.01306         2.75467
     7         7.97287         2.00184
     8         8.97504         2.35075
     9        0.945448         2.01362
    10         8.59097         2.84085
    11         1.23104         2.00751

  Rearranged array
  Left index =  4
  Key index =   5
  Right index = 6

  Left half:

     0         1.23104         2.00751
     1        0.945448         2.01362
     2        0.617272         2.44954
     3         0.43829         2.63397

  Key:

     0         2.18418         2.95632

  Right half:

     0         4.01306         2.75467
     1         7.97287         2.00184
     2         8.97504         2.35075
     3         2.57578         2.10996
     4         8.59097         2.84085
     5         4.15307         2.06612
     6         8.29509          2.5617

TEST0836
  D2VEC_SORT_QUICK_A sorts an R2 vector
    as part of a quick sort.
  Using initial random number seed = 123456789

  Before sorting:

     0         2.18418         2.95632
     1         8.29509          2.5617
     2         0.43829         2.06612
     3         1.23104         2.10996
     4         0.43829         2.63397
     5        0.617272         2.44954
     6         8.59097         2.84085
     7         7.97287         2.00184
     8         8.97504         2.35075
     9        0.945448         2.01362
    10         8.59097         2.84085
    11         1.23104         2.00751

  Sorted array:

     0         0.43829         2.06612
     1         0.43829         2.63397
     2        0.617272         2.44954
     3        0.945448         2.01362
     4         1.23104         2.00751
     5         1.23104         2.10996
     6         2.18418         2.95632
     7         7.97287         2.00184
     8         8.29509          2.5617
     9         8.59097         2.84085
    10         8.59097         2.84085
    11         8.97504         2.35075

TEST180
  SORT_HEAP_EXTERNAL sorts objects externally.

  Unsorted array:

     0         5
     1        20
     2        17
     3        12
     4         9
     5         2
     6         6
     7         3
     8         1
     9        13
    10         2
    11         9
    12         9
    13        16
    14        16
    15         1
    16        18
    17         8
    18         2
    19         1

  Sorted array:

     0         5
     1         1
     2         1
     3         1
     4         2
     5         3
     6         6
     7         8
     8         9
     9         9
    10         9
    11        12
    12        13
    13        16
    14        16
    15        18
    16        20
    17        20
    18        20
    19        20

BINS_PRB
  Normal end of execution.

13 November 2006 05:35:14 PM