--- rpl/lapack/blas/dgbmv.f 2010/12/21 13:51:24 1.6 +++ rpl/lapack/blas/dgbmv.f 2011/07/22 07:38:01 1.7 @@ -13,7 +13,7 @@ * * DGBMV performs one of the matrix-vector operations * -* y := alpha*A*x + beta*y, or y := alpha*A'*x + beta*y, +* y := alpha*A*x + beta*y, or y := alpha*A**T*x + beta*y, * * where alpha and beta are scalars, x and y are vectors and A is an * m by n band matrix, with kl sub-diagonals and ku super-diagonals. @@ -27,9 +27,9 @@ * * TRANS = 'N' or 'n' y := alpha*A*x + beta*y. * -* TRANS = 'T' or 't' y := alpha*A'*x + beta*y. +* TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. * -* TRANS = 'C' or 'c' y := alpha*A'*x + beta*y. +* TRANS = 'C' or 'c' y := alpha*A**T*x + beta*y. * * Unchanged on exit. * @@ -119,6 +119,7 @@ * =============== * * Level 2 Blas routine. +* The vector and matrix arguments are not referenced when N = 0, or M = 0 * * -- Written on 22-October-1986. * Jack Dongarra, Argonne National Lab. @@ -265,7 +266,7 @@ END IF ELSE * -* Form y := alpha*A'*x + y. +* Form y := alpha*A**T*x + y. * JY = KY IF (INCX.EQ.1) THEN