20110202  084304.974
 
TOMS448_PRB
  FORTRAN77 version
  Test the TOMS448 library.
 
TEST01
  Let C = 1, 2, 3, ..., N
 
 
       I    P(I)
 
       1       1
       2       2
       3       3
       4       5
       5       7
       6      11
       7      15
       8      22
       9      30
      10      42
 
TEST02:
  Let C = 1, 3, 5, 7, ( N + 1 ) / 2
 
 
       I    P(I)
 
       1       1
       2       1
       3       2
       4       2
       5       3
       6       4
       7       5
       8       6
       9       8
      10      10
 
TEST03:
  Let C = 1, 2, 2
 
 
       I    P(I)
 
       1       1
       2       3
       3       3
       4       6
       5       6
       6      10
       7      10
       8      15
       9      15
      10      21
 
TEST04:
  Let C = 1, 5, 10, 25, 50, 100
 
 
       I    P(I)
 
       1       1
       2       1
       3       1
       4       1
       5       2
       6       2
       7       2
       8       2
       9       2
      10       4
      11       4
      12       4
      13       4
      14       4
      15       6
      16       6
      17       6
      18       6
      19       6
      20       9
      21       9
      22       9
      23       9
      24       9
      25      13
      26      13
      27      13
      28      13
      29      13
      30      18
      31      18
      32      18
      33      18
      34      18
      35      24
      36      24
      37      24
      38      24
      39      24
      40      31
      41      31
      42      31
      43      31
      44      31
      45      39
      46      39
      47      39
      48      39
      49      39
      50      50
      51      50
      52      50
      53      50
      54      50
      55      62
      56      62
      57      62
      58      62
      59      62
      60      77
      61      77
      62      77
      63      77
      64      77
      65      93
      66      93
      67      93
      68      93
      69      93
      70     112
      71     112
      72     112
      73     112
      74     112
      75     134
      76     134
      77     134
      78     134
      79     134
      80     159
      81     159
      82     159
      83     159
      84     159
      85     187
      86     187
      87     187
      88     187
      89     187
      90     218
      91     218
      92     218
      93     218
      94     218
      95     252
      96     252
      97     252
      98     252
      99     252
     100     293
 
TOMS448_PRB
  Normal end of execution.
 
20110202  084304.975