diff options
Diffstat (limited to 'SRC/dtprfs.f')
-rw-r--r-- | SRC/dtprfs.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dtprfs.f b/SRC/dtprfs.f index f0ac8d38..ff275c14 100644 --- a/SRC/dtprfs.f +++ b/SRC/dtprfs.f @@ -184,7 +184,7 @@ DO 250 J = 1, NRHS * * Compute residual R = B - op(A) * X, -* where op(A) = A or A', depending on TRANS. +* where op(A) = A or A**T, depending on TRANS. * CALL DCOPY( N, X( 1, J ), 1, WORK( N+1 ), 1 ) CALL DTPMV( UPLO, TRANS, DIAG, N, AP, WORK( N+1 ), 1 ) @@ -250,7 +250,7 @@ END IF ELSE * -* Compute abs(A')*abs(X) + abs(B). +* Compute abs(A**T)*abs(X) + abs(B). * IF( UPPER ) THEN KC = 1 |