Mercurial > octave-nkf

changeset 7701:b9f5f281b54b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
zchinx.f: use dble instead of real
author John W. Eaton <jwe@octave.org>
date Mon, 07 Apr 2008 11:50:37 -0400
parents efccca5f2ad7
children 80b78635eefe
files libcruft/qrupdate/zchinx.f
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/qrupdate/zchinx.f	Mon Apr 07 11:43:19 2008 -0400
+++ b/libcruft/qrupdate/zchinx.f	Mon Apr 07 11:50:37 2008 -0400
@@ -42,11 +42,11 @@
 
 c quick return if possible
       if (n == 0) then
-        if (real(u(1)) <= 0) then
+        if (dble(u(1)) <= 0) then
           info = 1
           return
         else
-          R(1,1) = sqrt(real(u(1)))
+          R(1,1) = sqrt(dble(u(1)))
         end if
       end if