  
 ! 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 ) ;

                 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,
                 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,
                 INTEGER KL, INTEGER KU, COMPLEX ALPHA,
                 COMPLEX(*) A, INTEGER LDA, COMPLEX(*) X,
                 INTEGER INCX, COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) ;

                 CHARACTER*1 TRANSA, CHARACTER*1 DIAG,
                 INTEGER N, REAL(*) AP, REAL(*) X, INTEGER INCX ) ;

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 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 ) ;
