 
 M: VECTOR element-type
     drop TYPE ;
-M: VECTOR n*V+V!
-    (prepare-axpy) [ XAXPY execute ] dip ;
-M: VECTOR n*V!
-    (prepare-scal) [ XSCAL execute ] dip ;
 M: VECTOR Vswap
     (prepare-swap) [ XSWAP execute ] 2dip ;
 M: VECTOR Viamax

XDOT           IS cblas_${T}dot
XNRM2          IS cblas_${T}nrm2
XASUM          IS cblas_${T}asum

WHERE


>ARRAY         IS >${TYPE}-array
XCOPY          IS cblas_${T}copy
XSWAP          IS cblas_${T}swap
IXAMAX         IS cblas_i${T}amax

VECTOR         DEFINES ${TYPE}-blas-vector
