6 October 2025   6:50:58.154 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.420695      0.276650      0.745557    
    2:  0.436278      0.352204E-01  0.645930    
    3:  0.705211      0.798562      0.411320    
    4:  0.742856      0.168734      0.104637E-01
 
svd_truncated_u():
  dgesvd() computation was successful.
 
  Maximum error |A - U*S*V'| =   0.111022E-14
 
  Recomputed A = U * S * V':
 
  Col          1             2             3      
  Row
 
    1:  0.420695      0.276650      0.745557    
    2:  0.436278      0.352204E-01  0.645930    
    3:  0.705211      0.798562      0.411320    
    4:  0.742856      0.168734      0.104637E-01
 
svd_truncated_v_test():
  M =        3
  N =        4
 
  A:
 
  Col          1             2             3             4      
  Row
 
    1:  0.862516      0.170391      0.197113      0.102853    
    2:  0.666926      0.612241      0.616099      0.182161    
    3:  0.874228      0.785613      0.918749      0.121698    
 
svd_truncated_v():
  dgesvd() computation was successful.
 
  Maximum error |A - U*S*V'| =   0.222045E-15
 
  Recomputed A = U * S * V':
 
  Col          1             2             3             4      
  Row
 
    1:  0.862516      0.170391      0.197113      0.102853    
    2:  0.666926      0.612241      0.616099      0.182161    
    3:  0.874228      0.785613      0.918749      0.121698    
 
svd_truncated():
  Normal end of execution.
 
 6 October 2025   6:50:58.154 PM