Testing crout.adb method of solving simultaneous equations
check
 1 x(i)=  1.00000000000000E+00   0.00000000000000E+00 = row error 
 2 x(i)=  1.00000000000000E+00   0.00000000000000E+00 = row error 
n= 2, sum of row errors= 1.11022302462516E-16, real max err= 1.11022302462516E-16
simeq real max err= 7.77156117237610E-16
check
 1 x(i)=  1.00000000000002E+00   0.00000000000000E+00 = row error 
 2 x(i)=  9.99999999999862E-01   0.00000000000000E+00 = row error 
 3 x(i)=  1.00000000000025E+00   0.00000000000000E+00 = row error 
 4 x(i)=  9.99999999999864E-01  -1.11022302462516E-16 = row error 
n= 4, sum of row errors= 5.44342348973714E-13, real max err= 2.49800180540660E-13
simeq real max err= 1.57140966905445E-12
check
 1 x(i)=  1.00000000181710E+00   2.22044604925031E-16 = row error 
 2 x(i)=  9.99999944997735E-01   4.44089209850063E-16 = row error 
 3 x(i)=  1.00000053323284E+00   0.00000000000000E+00 = row error 
 4 x(i)=  9.99997615931925E-01   0.00000000000000E+00 = row error 
 5 x(i)=  1.00000560659358E+00   0.00000000000000E+00 = row error 
 6 x(i)=  9.99992834070865E-01   0.00000000000000E+00 = row error 
 7 x(i)=  1.00000470907248E+00   0.00000000000000E+00 = row error 
 8 x(i)=  9.99998754119033E-01   0.00000000000000E+00 = row error 
n= 8, sum of row errors= 2.17015964462108E-05, real max err= 7.16592913541092E-06
simeq real max err= 3.01414723868909E-06
check
 1 x(i)=  1.00000053036425E+00  -4.44089209850063E-16 = row error 
 2 x(i)=  9.99920153520064E-01   0.00000000000000E+00 = row error 
 3 x(i)=  1.00302661568510E+00   0.00000000000000E+00 = row error 
 4 x(i)=  9.50275359063056E-01   0.00000000000000E+00 = row error 
 5 x(i)=  1.43734222707738E+00  -4.44089209850063E-16 = row error 
 6 x(i)= -1.27769868398164E+00  -2.22044604925031E-16 = row error 
 7 x(i)=  8.32775690300696E+00  -2.22044604925031E-16 = row error 
 8 x(i)= -1.34247299862386E+01   0.00000000000000E+00 = row error 
 9 x(i)=  1.66292626335705E+01  -1.11022302462516E-16 = row error 
 10 x(i)= -3.84148705724812E+00  -1.11022302462516E-16 = row error 
 11 x(i)= -5.41829877850904E+00  -4.44089209850063E-16 = row error 
 12 x(i)=  1.43302886180061E+00  -1.11022302462516E-16 = row error 
 13 x(i)=  1.68067531193555E+01   1.11022302462516E-16 = row error 
 14 x(i)= -1.88410459842095E+01   0.00000000000000E+00 = row error 
 15 x(i)=  1.12380580849819E+01   0.00000000000000E+00 = row error 
 16 x(i)= -1.02216427640156E+00  -1.11022302462516E-16 = row error 
n= 16, sum of row errors= 9.97504582298474E+01, real max err= 1.98410459842095E+01
simeq says singular
check
n= 32, sum of row errors= 2.93488044869664E+04, real max err= 5.24351005612849E+03
simeq says singular
check
n= 64, sum of row errors= 7.69163098334547E+03, real max err= 3.74746872035816E+02
simeq says singular
check
n= 128, sum of row errors= 1.86375386572142E+04, real max err= 4.43596795942440E+02
simeq says singular
check
n= 256, sum of row errors= 3.52414862487164E+05, real max err= 6.40503776147848E+03
simeq says singular
check
n= 512, sum of row errors=NaN*****************, real max err= 0.00000000000000E+00
simeq says singular