[BACK]Return to dgbmv.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / blas

Diff for /rpl/lapack/blas/dgbmv.f between versions 1.6 and 1.7

version 1.6, 2010/12/21 13:51:24 version 1.7, 2011/07/22 07:38:01
Line 13 Line 13
 *  *
 *  DGBMV  performs one of the matrix-vector operations  *  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  *  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.  *  m by n band matrix, with kl sub-diagonals and ku super-diagonals.
Line 27 Line 27
 *  *
 *              TRANS = 'N' or 'n'   y := alpha*A*x + beta*y.  *              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.  *           Unchanged on exit.
 *  *
Line 119 Line 119
 *  ===============  *  ===============
 *  *
 *  Level 2 Blas routine.  *  Level 2 Blas routine.
   *  The vector and matrix arguments are not referenced when N = 0, or M = 0
 *  *
 *  -- Written on 22-October-1986.  *  -- Written on 22-October-1986.
 *     Jack Dongarra, Argonne National Lab.  *     Jack Dongarra, Argonne National Lab.
Line 265 Line 266
           END IF            END IF
       ELSE        ELSE
 *  *
 *        Form  y := alpha*A'*x + y.  *        Form  y := alpha*A**T*x + y.
 *  *
           JY = KY            JY = KY
           IF (INCX.EQ.1) THEN            IF (INCX.EQ.1) THEN
Removed from v.1.6  
changed lines
  Added in v.1.7

CVSweb interface <joel.bertrand@systella.fr>