09 May 2025 9:29:10.249 PM r8ci_test(): Fortran90 version: Test r8ci(). R8CI_DET_TEST R8CI_DET finds the determinant of a real circulant system. Matrix order N = 5 The circulant matrix: Col: 1 2 3 4 5 Row --- 1 0.687092 0.167486 0.960177 0.895171 0.923091 2 0.923091 0.687092 0.167486 0.960177 0.895171 3 0.895171 0.923091 0.687092 0.167486 0.960177 4 0.960177 0.895171 0.923091 0.687092 0.167486 5 0.167486 0.960177 0.895171 0.923091 0.687092 Computed determinant = 1.00073 R8CI_DIF2_TEST R8CI_DIF2 sets up an R8CI periodic second difference matrix. Matrix order N = 5 The R8CI second difference matrix: Col: 1 2 3 4 5 Row --- 1 2.00000 -1.00000 0.00000 0.00000 -1.00000 2 -1.00000 2.00000 -1.00000 0.00000 0.00000 3 0.00000 -1.00000 2.00000 -1.00000 0.00000 4 0.00000 0.00000 -1.00000 2.00000 -1.00000 5 -1.00000 0.00000 0.00000 -1.00000 2.00000 R8CI_EVAL_TEST R8CI_EVAL finds the eigenvalues of a real circulant system. Matrix order N = 5 The R8CI matrix: Col: 1 2 3 4 5 Row --- 1 0.915041 0.795956 0.533892E-01 0.395927 0.889403E-01 2 0.889403E-01 0.915041 0.795956 0.533892E-01 0.395927 3 0.395927 0.889403E-01 0.915041 0.795956 0.533892E-01 4 0.533892E-01 0.395927 0.889403E-01 0.915041 0.795956 5 0.795956 0.533892E-01 0.395927 0.889403E-01 0.915041 The eigenvalues: 1 0.337991 -0.741345 2 0.337991 0.741345 3 0.824985 0.471073 4 0.824985 -0.471073 5 2.24925 0.00000 R8CI_INDICATOR_TEST R8CI_INDICATOR sets up an R8CI indicator matrix. Matrix order N = 5 The R8CI matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 15.0000 11.0000 12.0000 13.0000 14.0000 3 14.0000 15.0000 11.0000 12.0000 13.0000 4 13.0000 14.0000 15.0000 11.0000 12.0000 5 12.0000 13.0000 14.0000 15.0000 11.0000 R8CI_MTV_TEST R8CI_MTV computes b=A'*x, where A is an R8CI matrix Matrix order N = 5 The circulant matrix A: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 15.0000 11.0000 12.0000 13.0000 14.0000 3 14.0000 15.0000 11.0000 12.0000 13.0000 4 13.0000 14.0000 15.0000 11.0000 12.0000 5 12.0000 13.0000 14.0000 15.0000 11.0000 The vector x: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 The product b=A'*x: 1 195.000 2 200.000 3 200.000 4 195.000 5 185.000 R8CI_MV_TEST R8CI_MV computes b=A*x, where A is an R8CI matrix Matrix order N = 5 The circulant matrix A: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 15.0000 11.0000 12.0000 13.0000 14.0000 3 14.0000 15.0000 11.0000 12.0000 13.0000 4 13.0000 14.0000 15.0000 11.0000 12.0000 5 12.0000 13.0000 14.0000 15.0000 11.0000 The vector x: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 The product b=A*x: 1 205.000 2 195.000 3 190.000 4 190.000 5 195.000 R8CI_PRINT_TEST R8CI_PRINT prints an R8CI matrix. Matrix order N = 5 The R8CI matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 15.0000 11.0000 12.0000 13.0000 14.0000 3 14.0000 15.0000 11.0000 12.0000 13.0000 4 13.0000 14.0000 15.0000 11.0000 12.0000 5 12.0000 13.0000 14.0000 15.0000 11.0000 R8CI_PRINT_SOME_TEST R8CI_PRINT_SOME prints some of an R8CI matrix. Matrix order N = 10 Rows 2-6, Cols 3-5: Col: 3 4 5 Row --- 2 102.000 103.000 104.000 3 101.000 102.000 103.000 4 110.000 101.000 102.000 5 109.000 110.000 101.000 6 108.000 109.000 110.000 R8CI_RANDOM_TEST R8CI_RANDOM sets a random R8CI matrix. Matrix order N = 5 The R8CI matrix: Col: 1 2 3 4 5 Row --- 1 0.735056 0.463242 0.353999 0.208095 0.802221 2 0.802221 0.735056 0.463242 0.353999 0.208095 3 0.208095 0.802221 0.735056 0.463242 0.353999 4 0.353999 0.208095 0.802221 0.735056 0.463242 5 0.463242 0.353999 0.208095 0.802221 0.735056 R8CI_SL_TEST R8CI_SL solves a circulant system. Matrix order N = 10 The circulant matrix: Col: 1 2 3 4 5 Row --- 1 0.660366 0.677737 0.894261 0.351762 0.552610 2 0.379347 0.660366 0.677737 0.894261 0.351762 3 0.101220 0.379347 0.660366 0.677737 0.894261 4 0.276384 0.101220 0.379347 0.660366 0.677737 5 0.119100 0.276384 0.101220 0.379347 0.660366 6 0.328354 0.119100 0.276384 0.101220 0.379347 7 0.552610 0.328354 0.119100 0.276384 0.101220 8 0.351762 0.552610 0.328354 0.119100 0.276384 9 0.894261 0.351762 0.552610 0.328354 0.119100 10 0.677737 0.894261 0.351762 0.552610 0.328354 Col: 6 7 8 9 10 Row --- 1 0.328354 0.119100 0.276384 0.101220 0.379347 2 0.552610 0.328354 0.119100 0.276384 0.101220 3 0.351762 0.552610 0.328354 0.119100 0.276384 4 0.894261 0.351762 0.552610 0.328354 0.119100 5 0.677737 0.894261 0.351762 0.552610 0.328354 6 0.660366 0.677737 0.894261 0.351762 0.552610 7 0.379347 0.660366 0.677737 0.894261 0.351762 8 0.101220 0.379347 0.660366 0.677737 0.894261 9 0.276384 0.101220 0.379347 0.660366 0.677737 10 0.119100 0.276384 0.101220 0.379347 0.660366 Solution: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 6 6.00000 7 7.00000 8 8.00000 9 9.00000 10 10.0000 Solution to transposed system: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 6 6.00000 7 7.00000 8 8.00000 9 9.00000 10 10.0000 R8CI_TO_R8GE_TEST R8CI_TO_R8GE converts an R8CI matrix to R8GE format. Matrix order N = 5 The R8CI matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 15.0000 11.0000 12.0000 13.0000 14.0000 3 14.0000 15.0000 11.0000 12.0000 13.0000 4 13.0000 14.0000 15.0000 11.0000 12.0000 5 12.0000 13.0000 14.0000 15.0000 11.0000 The R8GE matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 15.0000 11.0000 12.0000 13.0000 14.0000 3 14.0000 15.0000 11.0000 12.0000 13.0000 4 13.0000 14.0000 15.0000 11.0000 12.0000 5 12.0000 13.0000 14.0000 15.0000 11.0000 R8CI_ZEROS_TEST R8CI_ZEROS zeros an R8CI matrix. Matrix order N = 5 The zero R8CI matrix: Col: 1 2 3 4 5 Row --- 1 0.00000 0.00000 0.00000 0.00000 0.00000 2 0.00000 0.00000 0.00000 0.00000 0.00000 3 0.00000 0.00000 0.00000 0.00000 0.00000 4 0.00000 0.00000 0.00000 0.00000 0.00000 5 0.00000 0.00000 0.00000 0.00000 0.00000 r8ci_test(): Normal end of execution. 09 May 2025 9:29:10.250 PM