Function U-Solve!-Blas-Real

Part of:

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