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