math.blas: update string c-types
parent
ed18b911c8
commit
92e1ca8b61
|
@ -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
|
||||
|
||||
>>
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
>>
|
||||
|
||||
|
|
Loading…
Reference in New Issue