slassq(3) on Linux

The text 8182f9fe7f48, as Debian 2.2 (Potato), Debian 2.1 (Slink), Debian 2.0 (Hamm) shipped it.

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