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 | |
| parent | 5010a5e95e6e16234a3fa9405cfc295d8ff1339a (diff) | |
| download | lapack-6abbc1aa1e9e393bcfa3a8c17d0274cbd8ecf20c.tar.gz lapack-6abbc1aa1e9e393bcfa3a8c17d0274cbd8ecf20c.tar.bz2 lapack-6abbc1aa1e9e393bcfa3a8c17d0274cbd8ecf20c.zip | |
rearrange the test (Julien prefers it that way)
| -rw-r--r-- | SRC/dlaed6.f | 2 | ||||
| -rw-r--r-- | SRC/slaed6.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dlaed6.f b/SRC/dlaed6.f index e8e9709e..75de5169 100644 --- a/SRC/dlaed6.f +++ b/SRC/dlaed6.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 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 |