Mercurial > hg > octave-nkf

changeset 18703:c08776badd3d stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* r1mach.f: Fix cut and paste errors (bug #32120).
author John W. Eaton <jwe@octave.org>
date Mon, 17 Mar 2014 18:35:54 -0400
parents 564a74b2d509
children 90dbbafb0502
files liboctave/cruft/misc/r1mach.f
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/cruft/misc/r1mach.f
+++ b/liboctave/cruft/misc/r1mach.f
@@ -1,8 +1,8 @@
-      double precision function r1mach (i)
+      real function r1mach (i)
       integer i
       logical init
-      double precision rmach(5)
-      double precision slamch
+      real rmach(5)
+      real slamch
       external slamch
       save init, rmach
       data init /.false./
@@ -20,5 +20,5 @@
   999 write (*, 1999) i
  1999 format (' r1mach - i out of bounds', i10)
       call xstopx (' ')
-      d1mach = 0
+      r1mach = 0
       end