Function Lu-Solve!-Blas-Real

Part of:

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