Update gsl_matrix.cpp

solve #1700
gnudatalanguage · Dec 23, 2023 · 600ef64 · 600ef64
1 parent 49349c2
commit 600ef64
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/gsl_matrix.cpp b/src/gsl_matrix.cpp
@@ -48,8 +48,6 @@ namespace lib {
     //  cout << szdbl << " " <<szflt << " " << szlng << " " szlng64 << endl;
 
     SizeT nParam=e->NParam(1);
-    //     if( nParam == 0)
-    //       e->Throw( "Incorrect number of arguments.");
 
     BaseGDL* p0 = e->GetParDefined( 0);
 
@@ -111,7 +109,12 @@ namespace lib {
     if (p0->Type() == GDL_DOUBLE) double_flag=1;
     static int doubleIx=e->KeywordIx("DOUBLE");
     if (e->KeywordSet(doubleIx)) double_flag=1;
-
+    static int INTERCHANGES=e->KeywordIx("INTERCHANGES");
+    if (e->KeywordPresent(  INTERCHANGES)) {
+	  e->AssureGlobalKW(INTERCHANGES);
+	  e->SetKW(INTERCHANGES,new DLongGDL(s));
+    }
+
     // this code will always return GDL_DOUBLE because I don't know how to do :(
     // AC 13-Feb-2012 : this is not working and I don't know how to do :(
     // if (double_flag == 0)