Mercurial > octave

changeset 24159:c4dac7a0da7e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
integral.m: Remove specific code to preserve single type. * integral.m: Remove code to cast output to single, now that all underlying quadrature routines correctly return a single output when any input is single.
author Rik <rik@octave.org>
date Thu, 19 Oct 2017 08:14:52 -0700
parents f9549e90d620
children d0cee5e09879
files scripts/general/integral.m
diffstat 1 files changed, 1 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/general/integral.m	Wed Oct 18 21:59:38 2017 -0700
+++ b/scripts/general/integral.m	Thu Oct 19 08:14:52 2017 -0700
@@ -109,7 +109,6 @@
   endif
 
   if (nargin == 3)
-    issingle = isa (a, "single") || isa (b, "single");
     ## Pass the simplest case directly to general integrator.
     ## Let quadcc function handle input checks on function and limits.
     q = quadcc (f, a, b);
@@ -145,7 +144,7 @@
                 || isa (waypoints, "single"));
 
     if (arrayvalued)
-      ## Pass vector valued function to quadv, checking for conflicting params
+      ## Pass vector-valued function to quadv, checking for conflicting params
 
       ## FIXME: Replace warning when have array compatible call with waypoints
       if (! isempty (waypoints))
@@ -181,11 +180,6 @@
     endif
   endif
 
-  ## Preserve type single for output which quadcc may have discarded
-  if (issingle)
-    q = single (q);
-  endif
-
 endfunction