Function L-Solve!-Blas-Real

Part of:

package lisplab
( l-solve!-blas-real < l > < x > < col > )