From 35c54a91ac5d937795b2ff9912f8d0aa719fb6bf Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 9 Feb 2009 16:59:00 -0600
Subject: [PATCH] oops, leftover ORDER arguments from converting from CBLAS

---
 basis/math/blas/ffi/ffi.factor | 24 ++++++++----------------
 1 file changed, 8 insertions(+), 16 deletions(-)

diff --git a/basis/math/blas/ffi/ffi.factor b/basis/math/blas/ffi/ffi.factor
index 7e0694ae4f..77cee1aa82 100644
--- a/basis/math/blas/ffi/ffi.factor
+++ b/basis/math/blas/ffi/ffi.factor
@@ -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 ) ;