From d0ba7e9232eb3c01d590b82268849ea8fefb1bc1 Mon Sep 17 00:00:00 2001
From: Alexander Voigt <Alexander.Voigt@desy.de>
Date: Tue, 26 Jul 2016 18:06:43 +0200
Subject: [PATCH] do not strip i1 and i2 from symbols

---
 meta/CConversion.m      |  4 ----
 test/test_CConversion.m | 20 --------------------
 2 files changed, 24 deletions(-)

diff --git a/meta/CConversion.m b/meta/CConversion.m
index 4e8473fd1..b00f28c1e 100644
--- a/meta/CConversion.m
+++ b/meta/CConversion.m
@@ -615,10 +615,6 @@
 
 ToValidCSymbol[symbol_Real] := symbol;
 
-ToValidCSymbol[symbol_[Susyno`LieGroups`i1]] := ToValidCSymbol[symbol];
-
-ToValidCSymbol[symbol_[Susyno`LieGroups`i1,SARAH`i2]] := ToValidCSymbol[symbol];
-
 ToValidCSymbol[symbol_ /; Length[symbol] > 0] :=
     Module[{result = "", i},
            For[i = 0, i <= Length[symbol], i++,
diff --git a/test/test_CConversion.m b/test/test_CConversion.m
index 88302ac4e..304d1501a 100644
--- a/test/test_CConversion.m
+++ b/test/test_CConversion.m
@@ -20,12 +20,6 @@
 TestEquality[ToValidCSymbol[a[b,c]], abc];
 TestEquality[ToValidCSymbol[a[b,c][d]], abcd];
 
-(* SARAH sometimes appends indices [i1,i2] to express that a symbol is
-   of type matrix. These indices should be stripped before
-   conversion. *)
-TestEquality[ToValidCSymbol[a[Susyno`LieGroups`i1,SARAH`i2]], a];
-TestEquality[ToValidCSymbol[a[b,c][Susyno`LieGroups`i1,SARAH`i2]], abc];
-
 (* Test that symbols, which consist of greek letters are correctly
    converted. *)
 TestEquality[ToValidCSymbol[\[Lambda]3], Lambda3];
@@ -43,13 +37,6 @@
 TestEquality[ToValidCSymbolString[a[b,c]], "abc"];
 TestEquality[ToValidCSymbolString[a[b,c][d]], "abcd"];
 
-(* SARAH sometimes appends indices [i1,i2] to express that a type is
-   of type matrix. These indices should be stripped before
-   conversion. *)
-TestEquality[ToValidCSymbolString[a[Susyno`LieGroups`i1,SARAH`i2]], "a"];
-TestEquality[ToValidCSymbolString[a[b][Susyno`LieGroups`i1,SARAH`i2]], "ab"];
-TestEquality[ToValidCSymbolString[a[b,c][Susyno`LieGroups`i1,SARAH`i2]], "abc"];
-
 Print["testing RValueToCFormString[] ..."];
 
 TestEquality[RValueToCFormString[1], "1"];
@@ -70,13 +57,6 @@
 TestEquality[RValueToCFormString[trace[Adj[A]]], "(A.adjoint()).trace()"];
 TestEquality[RValueToCFormString[trace[A Adj[A]]], "(A*A.adjoint()).trace()"];
 
-(* SARAH sometimes appends indices [i1,i2] to express that a type is
-   of type matrix. These indices should be stripped before
-   conversion. *)
-TestEquality[RValueToCFormString[a[Susyno`LieGroups`i1,SARAH`i2]], "a"];
-TestEquality[RValueToCFormString[a[b][Susyno`LieGroups`i1,SARAH`i2]], "a(b)"];
-TestEquality[RValueToCFormString[a[b,c][Susyno`LieGroups`i1,SARAH`i2]], "a(b,c)"];
-
 (* test greek symbol conversion *)
 TestEquality[RValueToCFormString[\[Mu]], "Mu"];
 TestEquality[RValueToCFormString[SARAH`B[\[Mu]]], "BMu"];