06 October 2025 6:33:35.634 PM r8lt_test(): Fortran90 version: Test r8lt(). R8GE_TO_R8LT_TEST R8GE_TO_R8LT converts an R8GE matrix to R8LT format. The random R8GE matrix: Col: 1 2 3 4 Row --- 1 0.861578 0.606496 0.736125 0.761287 2 0.630782 0.430681E-01 0.156181E-02 0.506038 3 0.938270E-01 0.820041E-01 0.104087 0.306242 4 0.719381 0.930282 0.109133 0.725192 5 0.995582 0.892475 0.201104 0.943422E-01 The R8LT matrix Col: 1 2 3 4 Row --- 1 0.861578 2 0.630782 0.430681E-01 3 0.938270E-01 0.820041E-01 0.104087 4 0.719381 0.930282 0.109133 0.725192 5 0.995582 0.892475 0.201104 0.943422E-01 R8LT_DET_TEST R8LT_DET computes the determinant of an R8LT matrix. The matrix A: Col: 1 2 3 4 5 Row --- 1 0.933988 2 0.486018 0.450713 3 0.758007E-01 0.929658 0.700759 4 0.854368E-01 0.570178 0.402028 0.104567 5 0.701871 0.358335 0.596729 0.954832 0.129322E-02 Determinant is 0.398909E-04 R8LT_INDICATOR_TEST R8LT_INDICATOR sets up an indicator matrix in R8LT format; The R8LT indicator matrix: Col: 1 2 3 4 5 Row --- 1 11.0000 2 21.0000 22.0000 3 31.0000 32.0000 33.0000 4 41.0000 42.0000 43.0000 44.0000 5 51.0000 52.0000 53.0000 54.0000 55.0000 6 61.0000 62.0000 63.0000 64.0000 65.0000 R8LT_INVERSE_TEST R8LT_INVERSE computes the inverse of an R8LT matrix. The matrix A: Col: 1 2 3 4 5 Row --- 1 0.343645 2 0.864484 0.938403 3 0.311875 0.566880 0.253794 4 0.830717 0.936431 0.933827 0.165650 5 0.115413 0.198889 0.449005 0.525659E-01 0.462490E-01 The inverse matrix B: Col: 1 2 3 4 5 Row --- 1 2.90998 2 -2.68076 1.06564 3 2.41187 -2.38024 3.94021 4 -13.0353 7.39409 -22.2123 6.03681 5 -4.33328 10.1217 -13.0071 -6.86134 21.6221 The product C = A * B: Col: 1 2 3 4 5 Row --- 1 1.00000 2 0.00000 1.00000 3 0.00000 0.00000 1.00000 4 0.00000 0.00000 0.00000 1.00000 5 0.00000 0.00000 0.00000 0.00000 1.00000 R8LT_MM_TEST R8LT_MM computes C = A * B for R8LT matrices. The matrix A: Col: 1 2 3 4 5 Row --- 1 1.00000 2 1.00000 1.00000 3 1.00000 1.00000 1.00000 4 1.00000 1.00000 1.00000 1.00000 5 1.00000 1.00000 1.00000 1.00000 1.00000 The product C = A * A Col: 1 2 3 4 5 Row --- 1 1.00000 2 2.00000 1.00000 3 3.00000 2.00000 1.00000 4 4.00000 3.00000 2.00000 1.00000 5 5.00000 4.00000 3.00000 2.00000 1.00000 R8LT_MTM_TEST R8LT_MTM computes C = A' * B for R8LT matrices. The matrix A: Col: 1 2 3 4 5 Row --- 1 1.00000 2 1.00000 1.00000 3 1.00000 1.00000 1.00000 4 1.00000 1.00000 1.00000 1.00000 5 1.00000 1.00000 1.00000 1.00000 1.00000 The product C = A' * A Col: 1 2 3 4 5 Row --- 1 5.00000 4.00000 3.00000 2.00000 1.00000 2 4.00000 4.00000 3.00000 2.00000 1.00000 3 3.00000 3.00000 3.00000 2.00000 1.00000 4 2.00000 2.00000 2.00000 2.00000 1.00000 5 1.00000 1.00000 1.00000 1.00000 1.00000 R8LT_MTV_TEST R8LT_MTV computes A'*x for an R8LT matrix. The matrix A: Col: 1 2 3 4 Row --- 1 11.0000 2 21.0000 22.0000 3 31.0000 32.0000 33.0000 4 41.0000 42.0000 43.0000 44.0000 5 51.0000 52.0000 53.0000 54.0000 The vector x 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 b = A'*x: 1 565.000 2 568.000 3 536.000 4 446.000 R8LT_MV_TEST R8LT_MV computes A*x for an R8LT matrix. The matrix A: Col: 1 2 3 4 Row --- 1 11.0000 2 21.0000 22.0000 3 31.0000 32.0000 33.0000 4 41.0000 42.0000 43.0000 44.0000 5 51.0000 52.0000 53.0000 54.0000 The vector x 1 1.00000 2 2.00000 3 3.00000 4 4.00000 b = A*x: 1 11.0000 2 65.0000 3 194.000 4 430.000 5 530.000 R8LT_PRINT_TEST R8UT_PRINT prints an R8LT matrix. Matrix rows M = 6 Matrix columns N = 4 The R8UT matrix: Col: 1 2 3 4 Row --- 1 11.0000 2 21.0000 22.0000 3 31.0000 32.0000 33.0000 4 41.0000 42.0000 43.0000 44.0000 5 51.0000 52.0000 53.0000 54.0000 6 61.0000 62.0000 63.0000 64.0000 R8LT_PRINT_SOME_TEST R8LT_PRINT_SOME prints some of an R8LT matrix. Matrix rows M = 4 Matrix columns N = 6 Rows 2-3, Cols 2-4: Col: 2 3 4 Row --- 2 22.0000 3 32.0000 33.0000 R8LT_RANDOM_TEST R8LT_RANDOM randomizes an R8LT matrix. The random RLT matrix: Col: 1 2 3 4 5 Row --- 1 0.427089 2 0.732657 0.582863 3 0.262884E-04 0.746217 0.767333 4 0.919970 0.826729 0.174501 0.411828 5 0.891774E-01 0.745353 0.941301 0.868940 0.229446 6 0.784836 0.285086 0.437764 0.885149 0.881859 R8LT_SL_TEST R8LT_SL solves A*x=b for an R8LT matrix A. Matrix order N = 5 The R8LT matrix: Col: 1 2 3 4 5 Row --- 1 1.00000 2 1.00000 2.00000 3 1.00000 2.00000 3.00000 4 1.00000 2.00000 3.00000 4.00000 5 1.00000 2.00000 3.00000 4.00000 5.00000 Solution: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 R8LT_SLT_TEST R8LT_SLT solves A'*x=b for an R8LT matrix A Matrix order N = 5 The R8LT matrix: Col: 1 2 3 4 5 Row --- 1 1.00000 2 1.00000 2.00000 3 1.00000 2.00000 3.00000 4 1.00000 2.00000 3.00000 4.00000 5 1.00000 2.00000 3.00000 4.00000 5.00000 Solution to transposed system: 1 1.00000 2 2.00000 3 3.00000 4 4.00000 5 5.00000 R8LT_TO_R8GE_TEST R8LT_TO_R8GE converts an R8LT matrix to R8GE format. The random R8LT matrix: Col: 1 2 3 4 Row --- 1 0.171923 2 0.329608 0.480935 3 0.312929 0.805292 0.984999 4 0.874522 0.352681 0.398154 0.216259 5 0.384454 0.660303 0.745255E-01 0.519943 The R8GE matrix Col: 1 2 3 4 Row --- 1 0.171923 0.00000 0.00000 0.00000 2 0.329608 0.480935 0.00000 0.00000 3 0.312929 0.805292 0.984999 0.00000 4 0.874522 0.352681 0.398154 0.216259 5 0.384454 0.660303 0.745255E-01 0.519943 R8LT_ZEROS_TEST R8LT_ZEROS zeros an R8LT matrix; The R8LT matrix: Col: 1 2 3 4 5 Row --- 1 0.00000 2 0.00000 0.00000 3 0.00000 0.00000 0.00000 4 0.00000 0.00000 0.00000 0.00000 5 0.00000 0.00000 0.00000 0.00000 0.00000 6 0.00000 0.00000 0.00000 0.00000 0.00000 R8LT_TEST Normal end of execution. 06 October 2025 6:33:35.635 PM