19-May-2023 08:48:59 r8ccs_test(): MATLAB/Octave version 5.2.0 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: 1 2 3 4 5 Row --- 1 2 -1 0 0 0 2 -1 2 -1 0 0 3 0 -1 2 -1 0 4 0 0 -1 2 -1 5 0 0 0 -1 2 r8ccs_get_test(): r8ccs_get() gets an entry of an r8ccs matrix; Matrix rows M = 5 Matrix columns N = 5 Matrix nonzeros NZ_NUM = 12 The COLPTR vector: 1: 1 2: 4 3: 6 4: 8 5: 10 6: 13 The ROWIND vector: 1: 1 2: 2 3: 4 4: 1 5: 2 6: 3 7: 5 8: 4 9: 5 10: 1 11: 2 12: 5 The initial r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 -0.63357 -1.16958 0 0 0.354086 2 0.914965 -1.40392 0 0 -0.490234 3 0 0 0.215491 0 0 4 0.575164 0 0 -0.361982 0 5 0 0 -0.526465 -0.415259 0.521941 r8ccs_get retrieves 10 entries. I J K VALUE 1 2 4 -1.169581 5 4 9 -0.415259 5 4 9 -0.415259 5 3 7 -0.526465 5 4 9 -0.415259 2 2 5 -1.403924 1 5 10 0.354086 2 2 5 -1.403924 5 3 7 -0.526465 2 2 5 -1.403924 r8ccs_ijk_test(): r8ccs_ijk() gets K from (I,J) for an r8ccs matrix. Matrix rows M = 5 Matrix columns N = 5 Matrix nonzeros NZ_NUM = 12 The COLPTR vector: 1: 1 2: 4 3: 6 4: 8 5: 10 6: 13 The ROWIND vector: 1: 1 2: 2 3: 4 4: 1 5: 2 6: 3 7: 5 8: 4 9: 5 10: 1 11: 2 12: 5 The initial r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 0.395887 -0.593861 0 0 -1.2576 2 0.894036 0.445856 0 0 1.47651 3 0 0 0.0716185 0 0 4 -0.172112 0 0 -1.2589 0 5 0 0 0.303085 1.40587 1.82319 r8ccs_ijk locates some (I,J) entries. I J K 3 2 -1 3 3 6 2 2 5 5 2 -1 4 4 8 2 3 -1 2 5 11 2 2 5 5 3 7 3 4 -1 2 3 -1 5 1 -1 1 2 4 5 5 12 4 4 8 5 4 9 3 1 -1 4 5 -1 3 1 -1 1 5 10 r8ccs_inc_test(): r8ccs_inc() increments entries in an r8ccs matrix. Matrix rows M = 5 Matrix columns N = 5 Matrix nonzeros NZ_NUM = 12 The COLPTR vector: 1: 1 2: 4 3: 6 4: 8 5: 10 6: 13 The ROWIND vector: 1: 1 2: 2 3: 4 4: 1 5: 2 6: 3 7: 5 8: 4 9: 5 10: 1 11: 2 12: 5 The initial r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 -0.179591 0.0141249 0 0 0.00144911 2 0.164118 -0.0200709 0 0 0.332141 3 0 0 0.588246 0 0 4 1.34101 0 0 -0.85451 0 5 0 0 -0.291903 0.0395546 1.47391 r8ccs_inc increments 10 entries at random. I J K NEW_VALUE 3 3 6 21.588246 5 4 9 22.039555 1 2 4 23.014125 2 5 11 24.332141 3 3 6 46.588246 5 3 7 25.708097 5 4 9 49.039555 2 2 5 27.979929 1 2 4 52.014125 1 1 1 29.820409 The final r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 29.8204 52.0141 0 0 0.00144911 2 0.164118 27.9799 0 0 24.3321 3 0 0 46.5882 0 0 4 1.34101 0 0 -0.85451 0 5 0 0 25.7081 49.0396 1.47391 r8ccs_indicator_test(): r8ccs_indicator() sets up the indicator matrix; Matrix rows M = 5 Matrix columns N = 5 Nonzeros NZ_NUM = 12 The r8ccs 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_kij_test(): r8ccs_kij() gets (I,J) from K in an r8ccs matrix. Matrix rows M = 5 Matrix columns N = 5 Matrix nonzeros NZ_NUM = 12 The COLPTR vector: 1: 1 2: 4 3: 6 4: 8 5: 10 6: 13 The ROWIND vector: 1: 1 2: 2 3: 4 4: 1 5: 2 6: 3 7: 5 8: 4 9: 5 10: 1 11: 2 12: 5 The initial r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 -2.56552 0.313552 0 0 1.05094 2 0.551057 -0.540114 0 0 0.817737 3 0 0 -1.02226 0 0 4 -0.189713 0 0 -0.466777 0 5 0 0 0.499233 -0.868111 -0.912889 r8ccs_KIJ locates some K entries. K I J 11 2 5 4 1 2 2 2 1 6 3 3 12 5 5 8 4 4 10 1 5 7 5 3 8 4 4 7 5 3 1 1 1 3 4 1 7 5 3 2 2 1 5 2 2 7 5 3 10 1 5 2 2 1 12 5 5 3 4 1 r8ccs_mtv_test(): r8ccs_mtv() computes b=A'*x, where A is an r8ccs matrix. Matrix rows M = 5 Matrix columns N = 5 Matrix nonzeros NZ_NUM = 12 The r8ccs matrix A: Col: 1 2 3 4 5 Row --- 1 1.16012 -0.438311 0 0 0.576425 2 -1.23497 0.544611 0 0 0.002684 3 0 0 -1.08257 0 0 4 -1.00088 0 0 0.250377 0 5 0 0 1.56394 0.45681 0.323764 x: 1: 1 2: 0 3: 0 4: 0 5: -1 b=A'*x: 1: 1.16012 2: -0.438311 3: -1.56394 4: -0.45681 5: 0.252661 r8ccs_mv_test(): r8ccs_mv() computes b=A*x, where A is an r8ccs matrix; Matrix rows M = 5 Matrix columns N = 5 Matrix nonzeros NZ_NUM = 12 The r8ccs matrix A: Col: 1 2 3 4 5 Row --- 1 -0.831339 -0.0673475 0 0 1.33736 2 1.00899 0.449572 0 0 2.43131 3 0 0 -0.014338 0 0 4 0.546962 0 0 -0.787913 0 5 0 0 -0.170263 -0.700432 0.625121 The x: 1: 1 2: 0 3: 0 4: 0 5: -1 b=A*x: 1: -2.1687 2: -1.42232 3: 0 4: 0.546962 5: -0.625121 r8ccs_print_test(): r8ccs_print() prints a r8ccs matrix. Matrix rows M = 5 Matrix columns N = 5 Matrix nonzeros NZ_NUM = 12 The r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 0.766484 0.265125 0 0 -1.10092 2 0.384654 -0.705157 0 0 -0.411028 3 0 0 0.912442 0 0 4 -0.457936 0 0 -1.81458 0 5 0 0 0.671217 1.23021 -1.32562 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 2-6, Cols 5-8: Col: 5 6 7 8 Row --- 2 0 0 0 0 3 0 0 0 0 4 405 0 0 0 5 505 506 0 0 6 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: 1 2 3 4 5 Row --- 1 1.4674 0.209235 0 0 -0.593593 2 -0.165544 0.964797 0 0 0.433561 3 0 0 0.42469 0 0 4 0.466514 0 0 -0.456337 0 5 0 0 0.337288 -0.793329 1.97677 r8ccs_read_test(): r8ccs_read() reads an r8ccs matrix from a file. Matrix rows M = 5 Matrix columns N = 5 Nonzeros NZ_NUM = 12 Index base (0/1) = 1 The COL vector: 1: 1 2: 4 3: 6 4: 8 5: 10 6: 13 The ROW vector: 1: 1 2: 2 3: 4 4: 1 5: 2 6: 3 7: 5 8: 4 9: 5 10: 1 11: 2 12: 5 The r8ccs 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_set_test(): r8ccs_set() sets entries in an r8ccs matrix; Matrix rows M = 5 Matrix columns N = 5 Matrix nonzeros NZ_NUM = 12 The COLPTR vector: 1: 1 2: 4 3: 6 4: 8 5: 10 6: 13 The ROWIND vector: 1: 1 2: 2 3: 4 4: 1 5: 2 6: 3 7: 5 8: 4 9: 5 10: 1 11: 2 12: 5 The initial r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 -1.61541 0.65492 0 0 -0.400862 2 3.14508 0.389561 0 0 0.0483357 3 0 0 -1.15021 0 0 4 1.61416 0 0 -0.87847 0 5 0 0 0.790888 -0.535861 2.10034 r8ccs_set sets 10 entries at random. I J K NEW_VALUE 1 5 10 101.000000 5 4 9 102.000000 5 5 12 103.000000 1 2 4 104.000000 1 5 10 105.000000 4 4 8 106.000000 4 4 8 107.000000 5 3 7 108.000000 2 2 5 109.000000 5 4 9 110.000000 The final r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 -1.61541 104 0 0 105 2 3.14508 109 0 0 0.0483357 3 0 0 -1.15021 0 0 4 1.61416 0 0 107 0 5 0 0 108 110 103 r8ccs_to_r8ge_test(): r8ccs_to_r8ge() converts a matrix from r8ccs to r8ge format. Matrix rows M = Matrix columns N = Nonzeros NZ_NUM = The r8ccs 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 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 3 files Matrix rows M = 5 Matrix columns N = 5 Nonzeros NZ_NUM = 12 The COL vector: 1: 1 2: 4 3: 6 4: 8 5: 10 6: 13 The ROW vector: 1: 1 2: 2 3: 4 4: 1 5: 2 6: 3 7: 5 8: 4 9: 5 10: 1 11: 2 12: 5 The r8ccs 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_zeros_test(): r8ccs_zeros() zeros an r8ccs matrix. Matrix rows M = 5 Matrix columns N = 5 Nonzeros NZ_NUM = 12 The r8ccs matrix: Col: 1 2 3 4 5 Row --- 1 0 0 0 0 0 2 0 0 0 0 0 3 0 0 0 0 0 4 0 0 0 0 0 5 0 0 0 0 0 r8ccs_test(): Normal end of execution. 19-May-2023 08:48:59