--- rpl/lapack/blas/dtpmv.f	2010/12/21 13:51:25	1.6
+++ rpl/lapack/blas/dtpmv.f	2011/07/22 07:38:02	1.7
@@ -12,7 +12,7 @@
 *
 *  DTPMV  performs one of the matrix-vector operations
 *
-*     x := A*x,   or   x := A'*x,
+*     x := A*x,   or   x := A**T*x,
 *
 *  where x is an n element vector and  A is an n by n unit, or non-unit,
 *  upper or lower triangular matrix, supplied in packed form.
@@ -36,9 +36,9 @@
 *
 *              TRANS = 'N' or 'n'   x := A*x.
 *
-*              TRANS = 'T' or 't'   x := A'*x.
+*              TRANS = 'T' or 't'   x := A**T*x.
 *
-*              TRANS = 'C' or 'c'   x := A'*x.
+*              TRANS = 'C' or 'c'   x := A**T*x.
 *
 *           Unchanged on exit.
 *
@@ -89,6 +89,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.
@@ -223,7 +224,7 @@
           END IF
       ELSE
 *
-*        Form  x := A'*x.
+*        Form  x := A**T*x.
 *
           IF (LSAME(UPLO,'U')) THEN
               KK = (N* (N+1))/2