24 August 2022 07:26:40 PM

r8ncf_test():
  C version
  Test r8ncf().

R8NCF_DIF2_TEST
  R8NCF_DIF2 sets up an R8NCF second difference matrix;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros NZ_NUM = 14

  The R8NCF second difference 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

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

R8NCF_INDICATOR_TEST
  R8NCF_INDICATOR sets up an R8NCF indicator matrix;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros =  15

  The R8NCF indicator matrix:

  Col:          0             1             2             3             4       
  Row
  ---
    0              11            12             0            14             0
    1              21            22             0            24             0
    2               0             0            33            34             0
    3               0             0             0            44            45
    4              51            52             0             0            55

  Col:          5             6       
  Row
  ---
    0               0            17
    1               0             0
    2               0             0
    3              46             0
    4               0             0

R8NCF_MTV_TEST
  R8NCF_MTV computes b=A'*x, where A is an R8NCF matrix;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros =  15

  The matrix A:

  Col:          0             1             2             3             4       
  Row
  ---
    0              11            12             0            14             0
    1              21            22             0            24             0
    2               0             0            33            34             0
    3               0             0             0            44            45
    4              51            52             0             0            55

  Col:          5             6       
  Row
  ---
    0               0            17
    1               0             0
    2               0             0
    3              46             0
    4               0             0

  The vector x:

         0        1.000000
         1        2.000000
         2        3.000000
         3        4.000000
         4        5.000000

  The product b=A'*x:

         0      308.000000
         1      316.000000
         2       99.000000
         3      340.000000
         4      455.000000
         5      184.000000
         6       17.000000

R8NCF_MV_TEST
  R8NCF_MV computes b=A*x, where A is an R8NCF matrix;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros =  15

  The matrix A:

  Col:          0             1             2             3             4       
  Row
  ---
    0              11            12             0            14             0
    1              21            22             0            24             0
    2               0             0            33            34             0
    3               0             0             0            44            45
    4              51            52             0             0            55

  Col:          5             6       
  Row
  ---
    0               0            17
    1               0             0
    2               0             0
    3              46             0
    4               0             0

  The vector x:

         0        1.000000
         1        2.000000
         2        3.000000
         3        4.000000
         4        5.000000
         5        6.000000
         6        7.000000

  The product b=A*x:

         0      210.000000
         1      161.000000
         2      235.000000
         3      677.000000
         4      430.000000

R8NCF_PRINT_TEST
  R8NCF_PRINT prints an R8NCF matrix;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros =  15

  The R8NCF  matrix:

  Col:          0             1             2             3             4       
  Row
  ---
    0              11            12             0            14             0
    1              21            22             0            24             0
    2               0             0            33            34             0
    3               0             0             0            44            45
    4              51            52             0             0            55

  Col:          5             6       
  Row
  ---
    0               0            17
    1               0             0
    2               0             0
    3              46             0
    4               0             0

R8NCF_PRINT_SOME_TEST
  R8NCF_PRINT_SOME prints some of an R8NCF matrix;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros =  15

  Rows 0-4, Cols 1-3:

  Col:          1             2             3       
  Row
  ---
    0              12             0            14
    1              22             0            24
    2               0            33            34
    3               0             0            44
    4              52             0             0

R8NCF_RANDOM_TEST
  R8NCF_RANDOM randomizes an R8NCF  matrix;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros =  15

  The R8NCF random matrix:

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

  Col:          5             6       
  Row
  ---
    0               0      0.797287
    1               0             0
    2               0             0
    3        0.754673             0
    4               0             0

R8NCF_TO_R8GE_TEST
  R8NCF_TO_R8GE converts an R8NCF matrix to R8GE format;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros =  15

  The R8NCF matrix:

  Col:          0             1             2             3             4       
  Row
  ---
    0              11            12             0            14             0
    1              21            22             0            24             0
    2               0             0            33            34             0
    3               0             0             0            44            45
    4              51            52             0             0            55

  Col:          5             6       
  Row
  ---
    0               0            17
    1               0             0
    2               0             0
    3              46             0
    4               0             0

  The R8GE matrix:

  Col:          1             2             3             4             5       
  Row
  ---
    1            11            12             0            14             0  
    2            21            22             0            24             0  
    3             0             0            33            34             0  
    4             0             0             0            44            45  
    5            51            52             0             0            55  

  Col:          6             7       
  Row
  ---
    1             0            17  
    2             0             0  
    3             0             0  
    4            46             0  
    5             0             0  

R8NCF_ZEROS_TEST
  R8NCF_ZEROS zeros an R8NCF matrix;

  Matrix rows M =    5
  Matrix columns N = 7
  Matrix nonzeros NZ_NUM = 14

  The R8NCF zero 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

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

r8ncf_test():
  Normal end of execution.

24 August 2022 07:26:40 PM