diff options
author | julie <julielangou@users.noreply.github.com> | 2012-04-18 19:09:31 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2012-04-18 19:09:31 +0000 |
commit | 6abbc1aa1e9e393bcfa3a8c17d0274cbd8ecf20c (patch) | |
tree | 6804d170d9ecf9fd94dcdc0130efa35f990fd45c /SRC/slaed6.f | |
parent | 5010a5e95e6e16234a3fa9405cfc295d8ff1339a (diff) | |
download | lapack-6abbc1aa1e9e393bcfa3a8c17d0274cbd8ecf20c.tar.gz lapack-6abbc1aa1e9e393bcfa3a8c17d0274cbd8ecf20c.tar.bz2 lapack-6abbc1aa1e9e393bcfa3a8c17d0274cbd8ecf20c.zip |
rearrange the test (Julien prefers it that way)
Diffstat (limited to 'SRC/slaed6.f')
-rw-r--r-- | SRC/slaed6.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/slaed6.f b/SRC/slaed6.f index 94194199..0295bbf8 100644 --- a/SRC/slaed6.f +++ b/SRC/slaed6.f @@ -370,7 +370,7 @@ DF = ZERO DDF = ZERO DO 40 I = 1, 3 - IF (DSCALE( I ).NE.TAU) THEN + IF ( ( DSCALE( I )-TAU ).NE.ZERO ) THEN TEMP = ONE / ( DSCALE( I )-TAU ) TEMP1 = ZSCALE( I )*TEMP TEMP2 = TEMP1*TEMP |