09 May 2025 9:29:14.304 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.822137 0.997428E-03 0.391370 0.420006 2 0.914385 0.301489 0.664196 0.447882 3 0.161948 0.338676 0.414539 0.506625 4 0.221946 0.671872 0.666970 0.666883E-01 5 0.485821 0.395707E-01 0.870321E-01 0.771550 The R8LT matrix Col: 1 2 3 4 Row --- 1 0.822137 2 0.914385 0.301489 3 0.161948 0.338676 0.414539 4 0.221946 0.671872 0.666970 0.666883E-01 5 0.485821 0.395707E-01 0.870321E-01 0.771550 R8LT_DET_TEST R8LT_DET computes the determinant of an R8LT matrix. The matrix A: Col: 1 2 3 4 5 Row --- 1 0.103983 2 0.772385 0.243894 3 0.810137 0.703178 0.443929 4 0.789397 0.310202 0.387577 0.599712E-01 5 0.852349 0.850748 0.659328 0.381000 0.312067 Determinant is 0.210702E-03 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.320890 2 0.559401 0.265446 3 0.631034 0.997164 0.918986 4 0.921413 0.765618 0.734028 0.294969 5 0.505758 0.577023 0.226789 0.589691 0.904616 The inverse matrix B: Col: 1 2 3 4 5 Row --- 1 3.11634 2 -6.56737 3.76724 3 4.98617 -4.08772 1.08816 4 -5.09656 0.394037 -2.70787 3.39019 5 4.51904 -1.63505 1.49237 -2.20996 1.10544 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.222045E-15 0.00000 0.111022E-15 1.00000 5 0.00000 0.00000 0.00000 0.222045E-15 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.920741 2 0.422523 0.775372 3 0.396109 0.935661 0.333974 4 0.985186 0.346806 0.582150 0.390734 5 0.982851 0.591380 0.568740 0.714774 0.612921 6 0.476239 0.956812 0.266909 0.861149 0.793618 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.707421 2 0.433347 0.758550 3 0.502789 0.871187 0.461796 4 0.850223 0.964750E-01 0.260709 0.749708 5 0.407002 0.571078 0.325311 0.500740 The R8GE matrix Col: 1 2 3 4 Row --- 1 0.707421 0.00000 0.00000 0.00000 2 0.433347 0.758550 0.00000 0.00000 3 0.502789 0.871187 0.461796 0.00000 4 0.850223 0.964750E-01 0.260709 0.749708 5 0.407002 0.571078 0.325311 0.500740 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. 09 May 2025 9:29:14.305 PM