math.blas: update string c-types

db4
Joe Groff 2010-02-21 16:49:58 -08:00
parent ed18b911c8
commit 92e1ca8b61
2 changed files with 8 additions and 8 deletions

View File

@ -305,10 +305,10 @@ M: MATRIX pprint-delims
: 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
>>

View File

@ -238,10 +238,10 @@ M: VECTOR Vasum
[ 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
>>