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

 
! LEVEL 2 BLAS (MATRIX-VECTOR)

SUBROUTINE: SGEMV ( CHARACTER*1 ORDER,
                 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,
                 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 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 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 ) ;
