Mercurial > octave

changeset 30943:1f7fcac1fac9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lo-specfun.cc: Remove more duplication (bug #62321) lo-specfun.cc: Replace repeated lines of code with a single line and a flag variable to cover the two cases.
author Arun Giridhar <arungiridhar@gmail.com>
date Mon, 18 Apr 2022 13:30:21 -0400
parents 84e7222b6b5c
children 4727765dbc89
files liboctave/numeric/lo-specfun.cc
diffstat 1 files changed, 10 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/numeric/lo-specfun.cc	Mon Apr 18 09:32:12 2022 -0400
+++ b/liboctave/numeric/lo-specfun.cc	Mon Apr 18 13:30:21 2022 -0400
@@ -138,11 +138,9 @@
 
       F77_INT id = (deriv ? 1 : 0);
       F77_INT nz, t_ierr;
+      F77_INT sc = (scaled ? 2 : 1);
 
-      if (scaled)
-        F77_FUNC (zairy, ZAIRY) (zr, zi, id, 2, ar, ai, nz, t_ierr);
-      else
-        F77_FUNC (zairy, ZAIRY) (zr, zi, id, 1, ar, ai, nz, t_ierr);
+      F77_FUNC (zairy, ZAIRY) (zr, zi, id, sc, ar, ai, nz, t_ierr);
 
       ierr = t_ierr;
 
@@ -194,13 +192,10 @@
 
       F77_INT id = (deriv ? 1 : 0);
       F77_INT nz, t_ierr;
+      F77_INT sc = (scaled ? 2 : 1);
 
-      if (scaled)
-        F77_FUNC (cairy, CAIRY) (F77_CONST_CMPLX_ARG (&z), id, 2,
-                                 F77_CMPLX_ARG (&a), nz, t_ierr);
-      else
-        F77_FUNC (cairy, CAIRY) (F77_CONST_CMPLX_ARG (&z), id, 1,
-                                 F77_CMPLX_ARG (&a), nz, t_ierr);
+      F77_FUNC (cairy, CAIRY) (F77_CONST_CMPLX_ARG (&z), id, sc,
+                               F77_CMPLX_ARG (&a), nz, t_ierr);
 
       ierr = t_ierr;
 
@@ -1365,11 +1360,9 @@
 
       F77_INT id = (deriv ? 1 : 0);
       F77_INT t_ierr;
+      F77_INT sc = (scaled ? 2 : 1);
 
-      if (scaled)
-        F77_FUNC (zbiry, ZBIRY) (zr, zi, id, 2, ar, ai, t_ierr);
-      else
-        F77_FUNC (zbiry, ZBIRY) (zr, zi, id, 1, ar, ai, t_ierr);
+      F77_FUNC (zbiry, ZBIRY) (zr, zi, id, sc, ar, ai, t_ierr);
 
       ierr = t_ierr;
 
@@ -1421,13 +1414,10 @@
 
       F77_INT id = (deriv ? 1 : 0);
       F77_INT t_ierr;
+      F77_INT sc = (scaled ? 2 : 1);
 
-      if (scaled)
-        F77_FUNC (cbiry, CBIRY) (F77_CONST_CMPLX_ARG (&z), id, 2,
-                                 F77_CMPLX_ARG (&a), t_ierr);
-      else
-        F77_FUNC (cbiry, CBIRY) (F77_CONST_CMPLX_ARG (&z), id, 1,
-                                 F77_CMPLX_ARG (&a), t_ierr);
+      F77_FUNC (cbiry, CBIRY) (F77_CONST_CMPLX_ARG (&z), id, sc,
+                               F77_CMPLX_ARG (&a), t_ierr);
 
       ierr = t_ierr;