diff options
Diffstat (limited to 'SRC/zupmtr.f')
| -rw-r--r-- | SRC/zupmtr.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/SRC/zupmtr.f b/SRC/zupmtr.f index 579ccae1..3b5bffe6 100644 --- a/SRC/zupmtr.f +++ b/SRC/zupmtr.f @@ -170,17 +170,17 @@ DO 10 I = I1, I2, I3 IF( LEFT ) THEN * -* H(i) or H(i)' is applied to C(1:i,1:n) +* H(i) or H(i)**H is applied to C(1:i,1:n) * MI = I ELSE * -* H(i) or H(i)' is applied to C(1:m,1:i) +* H(i) or H(i)**H is applied to C(1:m,1:i) * NI = I END IF * -* Apply H(i) or H(i)' +* Apply H(i) or H(i)**H * IF( NOTRAN ) THEN TAUI = TAU( I ) @@ -231,19 +231,19 @@ AP( II ) = ONE IF( LEFT ) THEN * -* H(i) or H(i)' is applied to C(i+1:m,1:n) +* H(i) or H(i)**H is applied to C(i+1:m,1:n) * MI = M - I IC = I + 1 ELSE * -* H(i) or H(i)' is applied to C(1:m,i+1:n) +* H(i) or H(i)**H is applied to C(1:m,i+1:n) * NI = N - I JC = I + 1 END IF * -* Apply H(i) or H(i)' +* Apply H(i) or H(i)**H * IF( NOTRAN ) THEN TAUI = TAU( I ) |