09 April 2023 4:23:49.331 PM r8vm_test(): FORTRAN90 version: Test r8vm(). R8GE_TO_R8VM_TEST R8GE_TO_R8VM converts an R8GE matrix to R8VM format. The random R8GE matrix: Col: 1 2 3 4 Row --- 1 0.218418 0.661187E-01 0.617272E-01 0.183837E-02 2 0.956318 0.257578 0.449539 0.897504 3 0.829509 0.109957 0.401306 0.350752 4 0.561695 0.438290E-01 0.754673 0.945448E-01 5 0.415307 0.633966 0.797287 0.136169E-01 The R8VM matrix Col: 1 2 3 4 Row --- 1 1.00000 1.00000 1.00000 1.00000 2 0.956318 0.257578 0.449539 0.897504 3 0.914543 0.663463E-01 0.202085 0.805514 4 0.874594 0.170893E-01 0.908452E-01 0.722952 5 0.836389 0.440183E-02 0.408385E-01 0.648852 R8VM_DET_TEST R8VM_DET, determinant of a Vandermonde matrix. Matrix order N = 5 The Vandermonde matrix: Col: 1 2 3 4 5 Row --- 1 1.00000 1.00000 1.00000 1.00000 1.00000 2 1.00000 2.00000 3.00000 4.00000 5.00000 3 1.00000 4.00000 9.00000 16.0000 25.0000 4 1.00000 8.00000 27.0000 64.0000 125.000 5 1.00000 16.0000 81.0000 256.000 625.000 R8VM_DET = 288.000 Exact value = 288.000 R8VM_INDICATOR_TEST R8VM_INDICATOR sets an indicator matrix in R8VM format. The R8VM indicator matrix: Col: 1 2 3 4 Row --- 1 1.00000 1.00000 1.00000 1.00000 2 1.00000 2.00000 3.00000 4.00000 3 1.00000 4.00000 9.00000 16.0000 4 1.00000 8.00000 27.0000 64.0000 5 1.00000 16.0000 81.0000 256.000 R8VM_MTV_TEST R8VM_MTV computes b=A'*x, where A is an R8VM matrix. b=A'*x 1 1.63302 2 13.3366 3 9.37368 4 4.27647 5 2.78333 R8VM_MV_TEST R8VM_MV computes b=A*x, where A is an R8VM matrix. b=A*x 1 15.0000 2 8.94290 3 6.06546 4 4.53895 5 3.64235 R8VM_PRINT_TEST R8VM_PRINT prints an R8VM format. The R8VM matrix: Col: 1 2 3 4 Row --- 1 1.00000 1.00000 1.00000 1.00000 2 1.00000 2.00000 3.00000 4.00000 3 1.00000 4.00000 9.00000 16.0000 4 1.00000 8.00000 27.0000 64.0000 5 1.00000 16.0000 81.0000 256.000 R8VM_PRINT_SOME_TEST R8VM_PRINTSOME prints some of an R8VM format. Rows 2-5, Cols 2:4 Col: 2 3 4 Row --- 2 2.00000 3.00000 4.00000 3 4.00000 9.00000 16.0000 4 8.00000 27.0000 64.0000 5 16.0000 81.0000 256.000 R8VM_RANDOM_TEST R8VM_RANDOM randomizes an R8VM matrix. The R8VM matrix: Col: 1 2 3 4 Row --- 1 1.00000 1.00000 1.00000 1.00000 2 0.218418 0.956318 0.829509 0.561695 3 0.477066E-01 0.914543 0.688086 0.315502 4 0.104200E-01 0.874594 0.570773 0.177216 5 0.227592E-02 0.836389 0.473462 0.995414E-01 R8VM_SL_TEST R8VM_SL solves a Vandermonde system. Matrix order N = 5 Solution: 1 1.000000 2 2.000000 3 3.000000 4 4.000000 5 5.000000 R8VM_SLT_TEST R8VM_SLT solves a transposed Vandermonde system. Matrix order N = 5 Solution to transposed system: 1 1.000000 2 2.000000 3 3.000000 4 4.000000 5 5.000000 R8VM_TO_R8GE_TEST R8VM_TO_R8GE converts an R8VM matrix to R8GE format. The random R8VM matrix: Col: 1 2 3 4 Row --- 1 1.00000 1.00000 1.00000 1.00000 2 0.218418 0.956318 0.829509 0.561695 3 0.477066E-01 0.914543 0.688086 0.315502 4 0.104200E-01 0.874594 0.570773 0.177216 5 0.227592E-02 0.836389 0.473462 0.995414E-01 The R8GE matrix Col: 1 2 3 4 Row --- 1 1.00000 1.00000 1.00000 1.00000 2 0.218418 0.956318 0.829509 0.561695 3 0.477066E-01 0.914543 0.688086 0.315502 4 0.104200E-01 0.874594 0.570773 0.177216 5 0.227592E-02 0.836389 0.473462 0.995414E-01 R8VM_ZEROS_TEST R8VM_ZEROS zeros out a matrix in R8VM format. The zero R8VM matrix: Col: 1 2 3 4 Row --- 1 1.00000 1.00000 1.00000 1.00000 2 0.00000 0.00000 0.00000 0.00000 3 0.00000 0.00000 0.00000 0.00000 4 0.00000 0.00000 0.00000 0.00000 5 0.00000 0.00000 0.00000 0.00000 r8vm_test(): Normal end of execution. 09 April 2023 4:23:49.331 PM