09 April 2023 7:51:49.160 PM r8to_test(): FORTRAN90 version: Test r8to(). R8TO_DIF2_TEST R8TO_DIF2 sets the second difference as an R8TO matrix. Matrix order N = 5 The R8TO matrix: Col: 1 2 3 4 5 Row --- 1 2.00000 -1.00000 0.00000 0.00000 0.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 0.00000 0.00000 0.00000 -1.00000 2.00000 R8TO_INDICATOR_TEST R8TO_INDICATOR sets up an R8TO indicator matrix. Matrix order N = 5 The R8TO indicator matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 21.0000 11.0000 12.0000 13.0000 14.0000 3 31.0000 21.0000 11.0000 12.0000 13.0000 4 41.0000 31.0000 21.0000 11.0000 12.0000 5 51.0000 41.0000 31.0000 21.0000 11.0000 R8TO_MTV_TEST R8TO_MTV computes b=A'*x=b, where A is an R8TO matrix. Matrix order N = 5 The Toeplitz matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 21.0000 11.0000 12.0000 13.0000 14.0000 3 31.0000 21.0000 11.0000 12.0000 13.0000 4 41.0000 31.0000 21.0000 11.0000 12.0000 5 51.0000 41.0000 31.0000 21.0000 11.0000 x: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 b=A'*x: 1 565.000 2 426.000 3 309.000 4 225.000 5 185.000 R8TO_MV_TEST R8TO_MV computes b=A*x=b, where A is an R8TO matrix. Matrix order N = 5 The Toeplitz matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 21.0000 11.0000 12.0000 13.0000 14.0000 3 31.0000 21.0000 11.0000 12.0000 13.0000 4 41.0000 31.0000 21.0000 11.0000 12.0000 5 51.0000 41.0000 31.0000 21.0000 11.0000 x: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 b=A*x: 1 205.000 2 201.000 3 219.000 4 270.000 5 365.000 R8TO_PRINT_TEST R8TO_PRINT prints an R8TO matrix. Matrix order N = 5 The R8TO indicator matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 13.0000 14.0000 15.0000 2 21.0000 11.0000 12.0000 13.0000 14.0000 3 31.0000 21.0000 11.0000 12.0000 13.0000 4 41.0000 31.0000 21.0000 11.0000 12.0000 5 51.0000 41.0000 31.0000 21.0000 11.0000 R8TO_PRINT_SOME_TEST R8TO_PRINT_SOME prints some of an R8TO matrix. Matrix order N = 5 Rows2:5, Cols 1:3 Col: 1 2 3 Row --- 2 21.0000 11.0000 12.0000 3 31.0000 21.0000 11.0000 4 41.0000 31.0000 21.0000 5 51.0000 41.0000 31.0000 R8TO_RANDOM_TEST R8TO_RANDOM randomizes an R8TO matrix. Matrix order N = 5 The R8TO matrix: Col: 1 2 3 4 5 Row --- 1 0.218418 0.956318 0.829509 0.561695 0.415307 2 0.661187E-01 0.218418 0.956318 0.829509 0.561695 3 0.257578 0.661187E-01 0.218418 0.956318 0.829509 4 0.109957 0.257578 0.661187E-01 0.218418 0.956318 5 0.438290E-01 0.109957 0.257578 0.661187E-01 0.218418 R8TO_SL_TEST R8TO_SL solves A*x=b, where A is an R8TO matrix. Matrix order N = 5 The Toeplitz matrix: Col: 1 2 3 4 5 Row --- 1 0.218418 0.956318 0.829509 0.561695 0.415307 2 0.661187E-01 0.218418 0.956318 0.829509 0.561695 3 0.257578 0.661187E-01 0.218418 0.956318 0.829509 4 0.109957 0.257578 0.661187E-01 0.218418 0.956318 5 0.438290E-01 0.109957 0.257578 0.661187E-01 0.218418 Solution: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 R8TO_SLT_TEST R8TO_SLT solves A'*x=b, where A is an R8TO matrix. Matrix order N = 5 The Toeplitz matrix: Col: 1 2 3 4 5 Row --- 1 0.218418 0.956318 0.829509 0.561695 0.415307 2 0.661187E-01 0.218418 0.956318 0.829509 0.561695 3 0.257578 0.661187E-01 0.218418 0.956318 0.829509 4 0.109957 0.257578 0.661187E-01 0.218418 0.956318 5 0.438290E-01 0.109957 0.257578 0.661187E-01 0.218418 Solution to transposed system: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 R8TO_TO_R8GE_TEST R8TO_TO_R8GE converts a matrix from R8TO to R8GE format. Matrix order N = 5 The matrix in R8TO format: Col: 1 2 3 4 5 Row --- 1 0.218418 0.956318 0.829509 0.561695 0.415307 2 0.661187E-01 0.218418 0.956318 0.829509 0.561695 3 0.257578 0.661187E-01 0.218418 0.956318 0.829509 4 0.109957 0.257578 0.661187E-01 0.218418 0.956318 5 0.438290E-01 0.109957 0.257578 0.661187E-01 0.218418 The matrix in R8GE format: Col: 1 2 3 4 5 Row --- 1 0.218418 0.956318 0.829509 0.561695 0.415307 2 0.661187E-01 0.218418 0.956318 0.829509 0.561695 3 0.257578 0.661187E-01 0.218418 0.956318 0.829509 4 0.109957 0.257578 0.661187E-01 0.218418 0.956318 5 0.438290E-01 0.109957 0.257578 0.661187E-01 0.218418 R8TO_ZEROS_TEST R8TO_ZEROS zeros an R8TO matrix. Matrix order N = 5 The R8TO 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 r8to_test(): Normal end of execution. 09 April 2023 7:51:49.160 PM