9 May 2025   9:47:13.475 PM
 
toms515_test():
  FORTRAN90 version
  Test toms515().
 
TEST01
  Generate all K-subsets of an N set.
  K =      3
  N =      5
  LMAX =         10
 
           1           1           2           3
           2           1           2           4
           3           1           2           5
           4           1           3           4
           5           1           3           5
           6           1           4           5
           7           2           3           4
           8           2           3           5
           9           2           4           5
          10           3           4           5
 
TEST02
  Generate 10 random K-subsets of an N set.
  K =      3
  N =      5
  LMAX =         10
 
           4           1           3           4
           3           1           2           5
           8           2           3           5
           1           1           2           3
          10           3           4           5
           9           2           4           5
           5           1           3           5
           2           1           2           4
          10           3           4           5
           9           2           4           5
 
TEST03
  Generate 10 random K-subsets of an N set.
  K =      3
  N =     25
  LMAX =       2300
 
         348           2           6          15
        2201          16          19          25
        2073          13          21          24
        1632           9          10          22
         453           2          13          15
        1786          10          14          21
        1785          10          14          20
        2018          13          14          18
        1591           8          17          24
        1117           5          16          18
 
TEST04
  Generate 10 random K-subsets of an N set.
  K =      3
  N =    100
  LMAX =     161700
 
      157832          71          79          96
      140461          49          71          92
      150846          59          80          96
      107247          31          36          57
       90701          24          63          67
      159601          76          88          91
      122980          38          58          61
      121714          37          77          78
      106684          30          76         100
       95638          26          50          87
 
TEST05
  Generate 10 random K-subsets of an N set.
  K =     10
  N =    100
  LMAX = -126738568
 
  Note that this function is already
  failing because LMAX is negative.
  The combinatorial coefficient C(100,10)
  is too large to store in an integer.

  Although the program continues to give
  results, they cannot be relied on!

TEST05 - Warning!
  The binomial coefficient cannot be
  computed in integer arithmetic for
  this choice of parameters.
 
toms515_test():
  Normal end of execution.
 
 9 May 2025   9:47:13.475 PM