From 06bdeb4ac978c93a302c7824f90a2d0aaa7ac307 Mon Sep 17 00:00:00 2001
From: Weijia Wang <9713184+wegank@users.noreply.github.com>
Date: Thu, 30 May 2024 12:30:14 +0200
Subject: [PATCH] Fix mismatched multiple assignment in maple interface

---
 interfaces/msolve-to-maple-file-interface-macos.mpl | 6 +++---
 interfaces/msolve-to-maple-file-interface.mpl       | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/interfaces/msolve-to-maple-file-interface-macos.mpl b/interfaces/msolve-to-maple-file-interface-macos.mpl
index 418661e7..21dfcb74 100644
--- a/interfaces/msolve-to-maple-file-interface-macos.mpl
+++ b/interfaces/msolve-to-maple-file-interface-macos.mpl
@@ -97,7 +97,7 @@ local i, fd, F2, str;
 end proc:
 
 GetOptions:=proc(opts)
-local str, msolve_path, fname1, fname2, file_dir, verb, param, nthreads, output, gb;
+local str, msolve_path, fname1, fname2, file_dir, verb, param, nthreads, output, gb, elim;
   str:=subs(opts,"verb");
   if type(str, integer) then
      verb:=str;
@@ -286,7 +286,7 @@ end proc:
 # [ vars[1] = (a1+b1)/2, ..., vars[n] = (an+bn)/2 ]
 MSolveRealRoots:=proc(F, vars, opts:={})
 local results, dim, fname1, fname2, verb, param, msolve_path, file_dir,
-lsols, nl, i, j, gb, output, nthreads, str, sols, prec;
+lsols, nl, i, j, gb, output, nthreads, str, sols, prec, elim;
    if type(F, list(polynom(rational))) = false then
      printf("First argument is not a list of polynomials with rational coefficients\n");
    end if;
@@ -307,7 +307,7 @@ lsols, nl, i, j, gb, output, nthreads, str, sols, prec;
    output:=0;
    gb:=0;
    if nops(opts) > 0 then
-     msolve_path, fname1, fname2, file_dir, verb, param, nthreads, output, gb := GetOptions(opts);
+     msolve_path, fname1, fname2, file_dir, verb, param, nthreads, output, gb, elim := GetOptions(opts);
    fi;
    ToMSolve(F, 0, vars, fname1);
    if Digits <= 10 then
diff --git a/interfaces/msolve-to-maple-file-interface.mpl b/interfaces/msolve-to-maple-file-interface.mpl
index 0fd0952f..b984518b 100644
--- a/interfaces/msolve-to-maple-file-interface.mpl
+++ b/interfaces/msolve-to-maple-file-interface.mpl
@@ -99,7 +99,7 @@ local i, fd, F2, str;
 end proc:
 
 GetOptions:=proc(opts)
-local str, msolve_path, fname1, fname2, file_dir, verb, param, nthreads, output, gb;
+local str, msolve_path, fname1, fname2, file_dir, verb, param, nthreads, output, gb, elim;
   str:=subs(opts,"verb");
   if type(str, integer) then
      verb:=str;
@@ -287,7 +287,7 @@ end proc:
 # [ vars[1] = (a1+b1)/2, ..., vars[n] = (an+bn)/2 ]
 MSolveRealRoots:=proc(F, vars, opts:={})
 local results, dim, fname1, fname2, verb, param, msolve_path, file_dir,
-lsols, nl, i, j, gb, output, nthreads, str, sols, prec;
+lsols, nl, i, j, gb, output, nthreads, str, sols, prec, elim;
    if type(F, list(polynom(rational))) = false then
      printf("First argument is not a list of polynomials with rational coefficients\n");
    end if;
@@ -308,7 +308,7 @@ lsols, nl, i, j, gb, output, nthreads, str, sols, prec;
    output:=0;
    gb:=0;
    if nops(opts) > 0 then
-     msolve_path, fname1, fname2, file_dir, verb, param, nthreads, output, gb := GetOptions(opts);
+     msolve_path, fname1, fname2, file_dir, verb, param, nthreads, output, gb, elim := GetOptions(opts);
    fi;
    ToMSolve(F, 0, vars, fname1);
    if Digits <= 10 then