# HG changeset patch
# User Arun Giridhar <arungiridhar@gmail.com>
# Date 1650303021 14400
# Node ID 1f7fcac1fac953138decb0498a0e3db7f72f70d8
# Parent  84e7222b6b5cf6ea83f6eb037f71a0afa0301fb9
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.

diff -r 84e7222b6b5c -r 1f7fcac1fac9 liboctave/numeric/lo-specfun.cc
--- 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;