: define-complex-blas-matrix ( TYPE T -- )
"U" "C" (define-blas-matrix) ;
-"float" "S" define-real-blas-matrix
-"double" "D" define-real-blas-matrix
-"complex-float" "C" define-complex-blas-matrix
-"complex-double" "Z" define-complex-blas-matrix
+float "S" define-real-blas-matrix
+double "D" define-real-blas-matrix
+complex-float "C" define-complex-blas-matrix
+complex-double "Z" define-complex-blas-matrix
>>
[ drop (define-blas-vector) ]
[ (define-complex-blas-vector) ] 3bi ;
-"float" "S" define-real-blas-vector
-"double" "D" define-real-blas-vector
-"complex-float" "C" "S" define-complex-blas-vector
-"complex-double" "Z" "D" define-complex-blas-vector
+float "S" define-real-blas-vector
+double "D" define-real-blas-vector
+complex-float "C" "S" define-complex-blas-vector
+complex-double "Z" "D" define-complex-blas-vector
>>