21 August 2022 07:26:00 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 an entry from an r8ccs matrix;

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

  The COLPTR vector:

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

  The ROWIND vector:

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

  The r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.218418      0.561695             0             0      0.633966  
   1      0.956318      0.415307             0             0     0.0617272  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

         I         J         K      VALUE

         1         1         4        0.415307
         0         4         9        0.633966
         0         4         9        0.633966
         0         0         0        0.218418
         1         4        10       0.0617272
         1         1         4        0.415307
         1         0         1        0.956318
         0         0         0        0.218418
         1         4        10       0.0617272
         1         4        10       0.0617272

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:

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

  The ROWIND vector:

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

  The initial r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.218418      0.561695             0             0      0.633966  
   1      0.956318      0.415307             0             0     0.0617272  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

  r8ccs_IJK locates some (I,J) entries.

         I         J         K

         2         3        -1
         3         0         2
         4         1        -1
         0         0         0
         4         4        11
         0         0         0
         1         4        10
         0         1         3
         4         1        -1
         3         2        -1

r8ccs_INC_TEST
  r8ccs_INC increments entries of an r8ccs matrix;

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

  The COLPTR vector:

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

  The ROWIND vector:

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

  The initial r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.218418      0.561695             0             0      0.633966  
   1      0.956318      0.415307             0             0     0.0617272  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

  r8ccs_INC increments 10 entries at random.

         I         J         K       NEW_VALUE

         1         1         4         21.4153
         0         4         9          22.634
         0         4         9          45.634
         0         0         0         24.2184
         1         4        10         25.0617
         1         1         4         47.4153
         1         0         1         27.9563
         0         0         0         52.2184
         1         4        10         54.0617
         1         4        10         84.0617

  The final r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0       52.2184      0.561695             0             0        45.634  
   1       27.9563       47.4153             0             0       84.0617  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

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:

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

  The ROWIND vector:

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

  The initial r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.218418      0.561695             0             0      0.633966  
   1      0.956318      0.415307             0             0     0.0617272  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

  r8ccs_KIJ locates some K entries.

         K         I         J

         4         1         1
         9         0         4
         9         0         4
         0         0         0
        10         1         4
         4         1         1
         1         1         0
         0         0         0
        10         1         4
        10         1         4

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

  x:

         0        1.000000
         1        0.000000
         2        0.000000
         3        0.000000
         4       -1.000000

  b=A'*x:

         0        0.218418
         1        0.561695
         2       -0.257578
         3       -0.043829
         4        0.184427

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

  x:

         0        1.000000
         1        0.000000
         2        0.000000
         3        0.000000
         4       -1.000000

  b=A*x:

         0       -0.415547
         1        0.894590
         2        0.000000
         3        0.829509
         4       -0.449539

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.218418      0.561695             0             0      0.633966  
   1      0.956318      0.415307             0             0     0.0617272  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

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.218418      0.561695             0             0      0.633966  
   1      0.956318      0.415307             0             0     0.0617272  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

r8ccs_READ_TEST
  r8ccs_READ reads an r8ccs matrix from 3 files.

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

  The COL vector:

       0:        1
       1:        4
       2:        6
       3:        8
       4:       10
       5:       13

  The ROW vector:

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

  The r8ccs matrix:

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

r8ccs_SET_TEST
  r8ccs_SET sets an entry of an r8ccs matrix;

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

  The COLPTR vector:

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

  The ROWIND vector:

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

  The initial r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0      0.218418      0.561695             0             0      0.633966  
   1      0.956318      0.415307             0             0     0.0617272  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

  r8ccs_SET sets entries at random.

         I         J         K      NEW_VALUE

         1         1         4             101
         0         4         9             102
         0         4         9             103
         0         0         0             104
         1         4        10             105
         1         1         4             106
         1         0         1             107
         0         0         0             108
         1         4        10             109
         1         4        10             110

  The final r8ccs matrix:

  Col:        0             1             2             3             4       
  Row
  ---
   0           108      0.561695             0             0           103  
   1           107           106             0             0           110  
   2             0             0     0.0661187             0             0  
   3      0.829509             0             0      0.109957             0  
   4             0             0      0.257578      0.043829      0.449539  

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            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  

  The R8GE matrix:

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

r8ccs_WRITE_TEST
  r8ccs_WRITE writes an r8ccs matrix to files.

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

  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  

r8ccs_test():
  Normal end of execution.

21 August 2022 07:26:00 AM