diff options
author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-11-08 23:23:15 +0000 |
---|---|---|
committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-11-08 23:23:15 +0000 |
commit | 0ba273bce8a653c888148e40bb336a07e133a8e5 (patch) | |
tree | e32db4f9c8d2d89fdd50cf368d0e17c064e32d91 /SRC/clahef.f | |
parent | 62a53eb896fb85ffdf8760171b7868a2132a0188 (diff) | |
download | lapack-0ba273bce8a653c888148e40bb336a07e133a8e5.tar.gz lapack-0ba273bce8a653c888148e40bb336a07e133a8e5.tar.bz2 lapack-0ba273bce8a653c888148e40bb336a07e133a8e5.zip |
fixed a typo in a commnet in (c,z)lahef.f
Diffstat (limited to 'SRC/clahef.f')
-rw-r--r-- | SRC/clahef.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/clahef.f b/SRC/clahef.f index fc2c3392..e5175b39 100644 --- a/SRC/clahef.f +++ b/SRC/clahef.f @@ -426,8 +426,8 @@ * * = 1/(|d21|**2) * 1/((d11/cj(d21))*(d22/d21)-1) * * -* * ( d21*( d22/d21 ) conj(d21)( - 1 ) ) = -* ( ( -1 ) ( d11/conj(d21) ) ) +* * ( d21*( d22/d21 ) conj(d21)*( - 1 ) ) = +* ( ( -1 ) ( d11/conj(d21) ) ) * * = 1/(|d21|**2) * 1/(D22*D11-1) * * @@ -734,8 +734,8 @@ * * = 1/(|d21|**2) * 1/((d11/cj(d21))*(d22/d21)-1) * * -* * ( d21*( d22/d21 ) conj(d21)( - 1 ) ) = -* ( ( -1 ) ( d11/conj(d21) ) ) +* * ( d21*( d22/d21 ) conj(d21)*( - 1 ) ) = +* ( ( -1 ) ( d11/conj(d21) ) ) * * = 1/(|d21|**2) * 1/(D22*D11-1) * * |