20 February 2026 10:58:02 AM

r8ccs_test():
  C++ version
  Test r8ccs().

r8ccs_dif2_test():
  r8ccs_dif2() sets the second difference as an r8ccs matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 13

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0             2            -1             0             0             0  
   1            -1             2            -1             0             0  
   2             0            -1             2            -1             0  
   3             0             0            -1             2            -1  
   4             0             0             0            -1             2  

r8ccs_get_test():
  r8ccs_get() gets entries of an r8ccs matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The COLPTR vector:

     1       0
     2       3
     3       5
     4       7
     5       9
     6      12

  The ROWIND vector:

     1       0
     2       1
     3       3
     4       0
     5       1
     6       2
     7       4
     8       3
     9       4
    10       0
    11       1
    12       4

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0     0.0154999       0.40965             0             0      0.154602  
   1       0.75179      0.885792             0             0      0.255963  
   2             0             0      0.430955             0             0  
   3       0.58739             0             0      0.575504             0  
   4             0             0      0.550507      0.194739      0.666495  

  r8ccs_GET retrieves 10 entries.

         I         J         K      VALUE

         0         0         0       0.0154999
         4         3         8        0.194739
         3         3         7        0.575504
         3         3         7        0.575504
         1         1         4        0.885792
         4         3         8        0.194739
         3         0         2         0.58739
         1         1         4        0.885792
         3         3         7        0.575504
         4         4        11        0.666495

r8ccs_ijk_test():
  r8ccs_ijk() gets K from (I,J) for an r8ccs matrix.

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The COLPTR vector:

     1       0
     2       3
     3       5
     4       7
     5       9
     6      12

  The ROWIND vector:

     1       0
     2       1
     3       3
     4       0
     5       1
     6       2
     7       4
     8       3
     9       4
    10       0
    11       1
    12       4

  The initial r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.169327      0.208817             0             0      0.154544  
   1      0.770559      0.952342             0             0      0.384721  
   2             0             0      0.661083             0             0  
   3      0.897146             0             0      0.519628             0  
   4             0             0      0.821531      0.341692      0.861902  

  r8ccs_IJK locates some (I,J) entries.

         I         J         K

         1         0         1
         4         3         8
         1         1         4
         1         1         4
         0         3        -1
         3         1        -1
         2         0        -1
         1         2        -1
         3         1        -1
         2         2         5

r8ccs_INC_TEST():
  r8ccs_INC() increments the entries of an r8ccs matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The COLPTR vector:

     1       0
     2       3
     3       5
     4       7
     5       9
     6      12

  The ROWIND vector:

     1       0
     2       1
     3       3
     4       0
     5       1
     6       2
     7       4
     8       3
     9       4
    10       0
    11       1
    12       4

  The initial r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.848876      0.717353             0             0      0.632165  
   1      0.210272      0.878277             0             0      0.408077  
   2             0             0     0.0449854             0             0  
   3      0.225755             0             0      0.830377             0  
   4             0             0      0.943781      0.929361      0.221203  

  r8ccs_INC increments 10 entries at random.

         I         J         K       NEW_VALUE

         0         1         3         21.7174
         0         1         3         43.7174
         4         3         8         23.9294
         0         4         9         24.6322
         0         1         3         68.7174
         0         0         0         26.8489
         2         2         5          27.045
         4         3         8         51.9294
         4         2         6         29.9438
         0         4         9         54.6322

  The final r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0       26.8489       68.7174             0             0       54.6322  
   1      0.210272      0.878277             0             0      0.408077  
   2             0             0        27.045             0             0  
   3      0.225755             0             0      0.830377             0  
   4             0             0       29.9438       51.9294      0.221203  

r8ccs_INDICATOR_TEST
  r8ccs_INDICATOR sets up an r8ccs indicator matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The r8ccs indicator matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0            11            12             0             0            15  
   1            21            22             0             0            25  
   2             0             0            33             0             0  
   3            41             0             0            44             0  
   4             0             0            53            54            55  

r8ccs_KIJ_TEST():
  r8ccs_KIJ() gets (I,J) from K for an r8ccs matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The COLPTR vector:

     1       0
     2       3
     3       5
     4       7
     5       9
     6      12

  The ROWIND vector:

     1       0
     2       1
     3       3
     4       0
     5       1
     6       2
     7       4
     8       3
     9       4
    10       0
    11       1
    12       4

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0       0.17354      0.943003             0             0     0.0217511  
   1       0.22889      0.403316             0             0     0.0128643  
   2             0             0      0.737185             0             0  
   3      0.991882             0             0      0.889886             0  
   4             0             0      0.428811      0.982495      0.758814  

  r8ccs_KIJ locates some K entries.

         K         I         J

         2         3         0
         6         4         2
         1         1         0
         2         3         0
         6         4         2
         0         0         0
         7         3         3
         0         0         0
        11         4         4
         2         3         0

r8ccs_MTV_TEST
  r8ccs_MTV computes b=A'*x, where A is an r8ccs matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.304049      0.546443             0             0      0.827848  
   1      0.910179      0.128245             0             0      0.809869  
   2             0             0       0.66129             0             0  
   3      0.834071             0             0       0.21525             0  
   4             0             0      0.844716       0.66066      0.366555  

  b=A'*x:

     1        0.304049
     2        0.546443
     3       -0.844716
     4        -0.66066
     5        0.461293

r8ccs_MV_TEST
  r8ccs_MV computes b=A*x, where A is an r8ccs matrix.

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.851233      0.681932             0             0      0.314254  
   1      0.702291      0.876928             0             0      0.386982  
   2             0             0      0.213846             0             0  
   3      0.587383             0             0      0.227789             0  
   4             0             0      0.263977      0.237693       0.39248  

  x:

     1               1
     2               0
     3               0
     4               0
     5              -1

  b=A*x:

     1        0.536978
     2        0.315308
     3               0
     4        0.587383
     5        -0.39248

r8ccs_print_test():
  r8ccs_print() prints an r8ccs matrix.

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.311237      0.396031             0             0      0.621988  
   1      0.360201       0.47776             0             0      0.771839  
   2             0             0      0.596192             0             0  
   3      0.686197             0             0       0.33697             0  
   4             0             0      0.934559      0.206881      0.423627  

r8ccs_PRINT_SOME_TEST
  r8ccs_PRINT_SOME prints some of an r8ccs matrix.

  Matrix rows M    = 10
  Matrix columns N = 10
  Nonzeros NZ_NUM  = 28

  Rows 1:5, Cols 4:7:

  Col:        4             5             6             7       
  Row
  ---
   1             0             0             0             0  
   2             0             0             0             0  
   3           405             0             0             0  
   4           505           506             0             0  
   5           605           606           607             0  

r8ccs_random_test():
  r8ccs_random() randomizes an r8ccs matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0     0.0309059      0.926247             0             0      0.446209  
   1      0.564305      0.420866             0             0      0.976705  
   2             0             0      0.806508             0             0  
   3      0.855512             0             0      0.513582             0  
   4             0             0      0.612411      0.247085      0.301142  

r8ccs_READ_TEST
  r8ccs_READ reads an r8ccs matrix from 3 files.

  Matrix rows M     = 5
  Matrix columns N  = 5
  Nonzeros NZ_NUM   = 12

  The COL vector:

     1       0
     2       3
     3       5
     4       7
     5       9
     6      12

  The ROW vector:

     1       0
     2       1
     3       3
     4       0
     5       1
     6       2
     7       4
     8       3
     9       4
    10       0
    11       1
    12       4

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0            11            12             0             0            15  
   1            21            22             0             0            25  
   2             0             0            33             0             0  
   3            41             0             0            44             0  
   4             0             0            53            54            55  

r8ccs_set_test():
  r8ccs_set() sets entries of an r8ccs matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The COLPTR vector:

     1       0
     2       3
     3       5
     4       7
     5       9
     6      12

  The ROWIND vector:

     1       0
     2       1
     3       3
     4       0
     5       1
     6       2
     7       4
     8       3
     9       4
    10       0
    11       1
    12       4

  The initial r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.710246      0.951477             0             0      0.846061  
   1      0.923481      0.540962             0             0      0.150378  
   2             0             0      0.406865             0             0  
   3      0.725157             0             0      0.108825             0  
   4             0             0      0.599013      0.507793      0.915901  

  r8ccs_SET sets 10 entries at random.

         I         J         K      NEW_VALUE

         3         0         2             101
         0         0         0             102
         0         4         9             103
         3         0         2             104
         3         3         7             105
         4         2         6             106
         0         4         9             107
         3         3         7             108
         1         1         4             109
         3         0         2             110

  The final r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0           102      0.951477             0             0           107  
   1      0.923481           109             0             0      0.150378  
   2             0             0      0.406865             0             0  
   3           110             0             0           108             0  
   4             0             0           106      0.507793      0.915901  

r8ccs_to_r8ge_test():
  r8ccs_to_r8ge() converts a matrix from r8ccs to R8GE format

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.215211      0.971987             0             0     0.0756429  
   1      0.171786      0.273228             0             0      0.284766  
   2             0             0     0.0176282             0             0  
   3      0.681894             0             0     0.0999335             0  
   4             0             0      0.742251     0.0274531      0.533114  

  The R8GE matrix:

  Col:          1             2             3             4             5       
  Row
  ---
    1      0.215211      0.971987             0             0     0.0756429  
    2      0.171786      0.273228             0             0      0.284766  
    3             0             0     0.0176282             0             0  
    4      0.681894             0             0     0.0999335             0  
    5             0             0      0.742251     0.0274531      0.533114  

r8ccs_write_test():
  r8ccs_write() writes an r8ccs matrix to 3 files.

  Matrix rows M     = 5
  Matrix columns N  = 5
  Nonzeros NZ_NUM   = 12

  The COL vector:

     1       0
     2       3
     3       5
     4       7
     5       9
     6      12

  The ROW vector:

     1       0
     2       1
     3       3
     4       0
     5       1
     6       2
     7       4
     8       3
     9       4
    10       0
    11       1
    12       4

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0            11            12             0             0            15  
   1            21            22             0             0            25  
   2             0             0            33             0             0  
   3            41             0             0            44             0  
   4             0             0            53            54            55  

r8ccs_zeros_test():
  r8ccs_zeros() zeros an r8ccs matrix;

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 12

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0             0             0             0             0             0  
   1             0             0             0             0             0  
   2             0             0             0             0             0  
   3             0             0             0             0             0  
   4             0             0             0             0             0  

r8ge_to_r8ccs_test():
  r8ge_to_r8ccs() converts an r8ge matrix to r8ccs format

  Matrix rows M    = 5
  Matrix columns N = 5
  Nonzeros NZ_NUM  = 14

  The R8GE matrix:

  Col:          1             2             3             4             5       
  Row
  ---
    1            11            12            13             0            15  
    2             0             0            23             0             0  
    3            31             0            33             0            35  
    4            41            42             0            44             0  
    5             0            52             0            54            55  

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0            11            12            13             0            15  
   1             0             0            23             0             0  
   2            31             0            33             0            35  
   3            41            42             0            44             0  
   4             0            52             0            54            55  

r8ccs_test():
  Normal end of execution.

20 February 2026 10:58:02 AM