steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

oops, leftover ORDER arguments from converting from CBLAS

db4
Joe Groff 2009-02-09 16:59:00 -06:00
parent ad843a1bcf
commit 35c54a91ac
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
basis/math/blas/ffi/ffi.factor
View File

@ -122,13 +122,11 @@ SUBROUTINE: DROTM
! LEVEL 2 BLAS (MATRIX-VECTOR)
SUBROUTINE: SGEMV ( CHARACTER*1 ORDER,
CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
SUBROUTINE: SGEMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
REAL ALPHA, REAL(*) A, INTEGER LDA,
REAL(*) X, INTEGER INCX, REAL BETA,
REAL(*) Y, INTEGER INCY ) ;
SUBROUTINE: SGBMV ( CHARACTER*1 ORDER,
CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
SUBROUTINE: SGBMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
INTEGER KL, INTEGER KU, REAL ALPHA,
REAL(*) A, INTEGER LDA, REAL(*) X,
INTEGER INCX, REAL BETA, REAL(*) Y, INTEGER INCY ) ;
@ -155,13 +153,11 @@ SUBROUTINE: STPSV ( CHARACTER*1 UPLO,
CHARACTER*1 TRANSA, CHARACTER*1 DIAG,
INTEGER N, REAL(*) AP, REAL(*) X, INTEGER INCX ) ;
SUBROUTINE: DGEMV ( CHARACTER*1 ORDER,
CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
SUBROUTINE: DGEMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA,
DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION BETA,
DOUBLE-PRECISION(*) Y, INTEGER INCY ) ;
SUBROUTINE: DGBMV ( CHARACTER*1 ORDER,
CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
SUBROUTINE: DGBMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
INTEGER KL, INTEGER KU, DOUBLE-PRECISION ALPHA,
DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) X,
INTEGER INCX, DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ;
@ -188,13 +184,11 @@ SUBROUTINE: DTPSV ( CHARACTER*1 UPLO,
CHARACTER*1 TRANSA, CHARACTER*1 DIAG,
INTEGER N, DOUBLE-PRECISION(*) AP, DOUBLE-PRECISION(*) X, INTEGER INCX ) ;
SUBROUTINE: CGEMV ( CHARACTER*1 ORDER,
CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
SUBROUTINE: CGEMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA,
COMPLEX(*) X, INTEGER INCX, COMPLEX BETA,
COMPLEX(*) Y, INTEGER INCY ) ;
SUBROUTINE: CGBMV ( CHARACTER*1 ORDER,
CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
SUBROUTINE: CGBMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
INTEGER KL, INTEGER KU, COMPLEX ALPHA,
COMPLEX(*) A, INTEGER LDA, COMPLEX(*) X,
INTEGER INCX, COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) ;
@ -221,13 +215,11 @@ SUBROUTINE: CTPSV ( CHARACTER*1 UPLO,
CHARACTER*1 TRANSA, CHARACTER*1 DIAG,
INTEGER N, COMPLEX(*) AP, COMPLEX(*) X, INTEGER INCX ) ;
SUBROUTINE: ZGEMV ( CHARACTER*1 ORDER,
CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
SUBROUTINE: ZGEMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA,
DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX BETA,
DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ;
SUBROUTINE: ZGBMV ( CHARACTER*1 ORDER,
CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
SUBROUTINE: ZGBMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N,
INTEGER KL, INTEGER KU, DOUBLE-COMPLEX ALPHA,
DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) X,
INTEGER INCX, DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ;