zlassq(3) on Linux

The text 90a491f2712d, as Debian 3.0 (Woody) shipped it.

return the values scl and ssq such that ( scl**2 )*ssq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq,