20 February 2026 09:21:46 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.261365 0.561491 0 0 0.227357 1 0.0372688 0.124052 0 0 0.0333853 2 0 0 0.00178826 0 0 3 0.325821 0 0 0.822234 0 4 0 0 0.146887 0.993246 0.159273 I J K VALUE 1 4 10 0.0333853 1 1 4 0.124052 0 4 9 0.227357 0 4 9 0.227357 1 4 10 0.0333853 3 0 2 0.325821 1 1 4 0.124052 0 4 9 0.227357 0 1 3 0.561491 4 2 6 0.146887 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.401205 0.362115 0 0 0.903693 1 0.137342 0.333563 0 0 0.41253 2 0 0 0.427592 0 0 3 0.904343 0 0 0.436935 0 4 0 0 0.779063 0.500594 0.00350563 r8ccs_IJK locates some (I,J) entries. I J K 2 3 -1 1 2 -1 4 4 11 3 3 7 0 3 -1 0 1 3 0 4 9 0 2 -1 0 0 0 4 1 -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.978123 0.0358258 0 0 0.355056 1 0.0505704 0.7911 0 0 0.196207 2 0 0 0.874132 0 0 3 0.0160939 0 0 0.634546 0 4 0 0 0.626707 0.14548 0.79823 r8ccs_INC increments 10 entries at random. I J K NEW_VALUE 4 2 6 21.6267 1 4 10 22.1962 3 3 7 23.6345 0 1 3 24.0358 3 3 7 48.6345 4 2 6 47.6267 2 2 5 27.8741 4 4 11 28.7982 0 1 3 53.0358 0 4 9 30.3551 The final r8ccs matrix: Col: 0 1 2 3 4 Row --- 0 0.978123 53.0358 0 0 30.3551 1 0.0505704 0.7911 0 0 22.1962 2 0 0 27.8741 0 0 3 0.0160939 0 0 48.6345 0 4 0 0 47.6267 0.14548 28.7982 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.279838 0.846183 0 0 0.501993 1 0.133938 0.858785 0 0 0.582829 2 0 0 0.446226 0 0 3 0.738877 0 0 0.106216 0 4 0 0 0.335489 0.595634 0.225199 r8ccs_KIJ locates some K entries. K I J 6 4 2 9 0 4 4 1 1 10 1 4 3 0 1 4 1 1 9 0 4 11 4 4 0 0 0 11 4 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.329968 1 0.387761 2 -0.152952 3 -0.532091 4 -0.378669 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.249095 1 -0.614761 2 0.000000 3 0.698390 4 -0.048427 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.856034 0.290159 0 0 0.94872 1 0.0727105 0.178515 0 0 0.383903 2 0 0 0.356138 0 0 3 0.483966 0 0 0.286877 0 4 0 0 0.134823 0.0359412 0.482628 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.122893 0.788284 0 0 0.107007 1 0.0951293 0.638681 0 0 0.43112 2 0 0 0.150156 0 0 3 0.30573 0 0 0.816788 0 4 0 0 0.0548409 0.237029 0.132583 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: 0: 0 1: 3 2: 5 3: 7 4: 9 5: 12 The ROW 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 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 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.332682 0.308464 0 0 0.751378 1 0.739582 0.389482 0 0 0.261974 2 0 0 0.888595 0 0 3 0.602074 0 0 0.472921 0 4 0 0 0.930955 0.5122 0.211433 r8ccs_SET sets entries at random. I J K NEW_VALUE 4 2 6 101 1 0 1 102 3 0 2 103 3 3 7 104 1 4 10 105 1 1 4 106 0 0 0 107 0 0 0 108 2 2 5 109 0 0 0 110 The final r8ccs matrix: Col: 0 1 2 3 4 Row --- 0 110 0.308464 0 0 0.751378 1 102 106 0 0 105 2 0 0 109 0 0 3 103 0 0 104 0 4 0 0 101 0.5122 0.211433 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 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 09:21:46 AM