Merge pull request #137 from wegank/fix-trivial-1

Fix mismatched multiple assignment in maple interface
algebraic-solving · Sep 10, 2024 · e97abf1 · e97abf1
2 parents 8d7f2a2 + 06bdeb4
commit e97abf1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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