6 October 2025   6:51:53.879 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
 
           2           1           2           4
           1           1           2           3
           2           1           2           4
           5           1           3           5
           9           2           4           5
           7           2           3           4
           5           1           3           5
           2           1           2           4
           1           1           2           3
           6           1           4           5
 
TEST03
  Generate 10 random K-subsets of an N set.
  K =      3
  N =     25
  LMAX =       2300
 
        2294          21          23          24
        1026           5           9          11
          43           1           3          23
         413           2          10          14
        1414           7          13          21
        1284           6          15          23
         212           1          14          16
        1496           8           9          21
         938           4          17          21
         184           1          11          24
 
TEST04
  Generate 10 random K-subsets of an N set.
  K =      3
  N =    100
  LMAX =     161700
 
       80842          21          40          91
      109400          32          34          61
       32586           8          16          52
        8396           2          51          68
        3245           1          43          90
      120114          37          39          55
      108606          31          63          66
       66873          17          23          80
       37725           9          29          95
        3250           1          43          95
 
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.
 
 6 October 2025   6:51:53.879 PM