9 May 2025 9:46:17.073 PM svd_truncated(): Fortran90 version Demonstrate the use of the truncated or economy-size Singular Value Decomposition (SVD) for cases where the sizes of M and N are very different. svd_truncated_u_test(): M = 4 N = 3 A: Col 1 2 3 Row 1: 0.410257 0.329642 0.570120 2: 0.517025 0.219261 0.863928E-01 3: 0.598003 0.285601E-01 0.975911 4: 0.615066 0.888635 0.933654 svd_truncated_u(): dgesvd() computation was successful. Maximum error |A - U*S*V'| = 0.666134E-15 Recomputed A = U * S * V': Col 1 2 3 Row 1: 0.410257 0.329642 0.570120 2: 0.517025 0.219261 0.863928E-01 3: 0.598003 0.285601E-01 0.975911 4: 0.615066 0.888635 0.933654 svd_truncated_v_test(): M = 3 N = 4 A: Col 1 2 3 4 Row 1: 0.980483E-01 0.307794 0.257119 0.797886 2: 0.972999 0.833777 0.276634 0.682237 3: 0.161604 0.125699 0.553938 0.638048 svd_truncated_v(): dgesvd() computation was successful. Maximum error |A - U*S*V'| = 0.444089E-15 Recomputed A = U * S * V': Col 1 2 3 4 Row 1: 0.980483E-01 0.307794 0.257119 0.797886 2: 0.972999 0.833777 0.276634 0.682237 3: 0.161604 0.125699 0.553938 0.638048 svd_truncated(): Normal end of execution. 9 May 2025 9:46:17.074 PM