Taken from NR share library nrpas13 as SVDCMP.PAS
and renamed svdcmp.p