 XDOTC_SUB      IS cblas_${C}dotc_sub
 XXNRM2         IS cblas_${S}${C}nrm2
 XXASUM         IS cblas_${S}${C}asum
+XAXPY          IS cblas_${C}axpy
+XSCAL          IS cblas_${C}scal
+TYPE>ALIEN     IS ${TYPE}>alien
 ALIEN>TYPE     IS alien>${TYPE}
 
 WHERE

    (prepare-nrm2) XXNRM2 execute ;
M: VECTOR Vasum
    (prepare-nrm2) XXASUM execute ;

;FUNCTOR


XDOT           IS cblas_${T}dot
XNRM2          IS cblas_${T}nrm2
XASUM          IS cblas_${T}asum
XAXPY          IS cblas_${T}axpy
XSCAL          IS cblas_${T}scal

WHERE

