L[SMII] = {{{0, 1, 0, 0}, {0, 0, 0, -1}, {1, 0, 0, 0}, {0, 0, -1, 0}}, 
     {{1, 0, 0, 0}, {0, 0, 1, 0}, {0, -1, 0, 0}, {0, 0, 0, -1}}, 
     {{0, 0, 0, 1}, {0, 1, 0, 0}, {0, 0, 1, 0}, {1, 0, 0, 0}}, 
     {{0, 0, 1, 0}, {-1, 0, 0, 0}, {0, 0, 0, -1}, {0, 1, 0, 0}}}
 
R[SMII] = {{{0, 0, 1, 0}, {1, 0, 0, 0}, {0, 0, 0, -1}, {0, -1, 0, 0}}, 
     {{1, 0, 0, 0}, {0, 0, -1, 0}, {0, 1, 0, 0}, {0, 0, 0, -1}}, 
     {{0, 0, 0, 1}, {0, 1, 0, 0}, {0, 0, 1, 0}, {1, 0, 0, 0}}, 
     {{0, -1, 0, 0}, {0, 0, 0, 1}, {1, 0, 0, 0}, {0, 0, -1, 0}}}
 
V[SMII] = {{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, I, 0}, {0, 0, 0, -I}, {-I, 0, 0, 0}, {0, I, 0, 0}}, 
      {{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, -I}, {0, 0, I, 0}}, 
      {{0, 0, 0, -I}, {0, 0, -I, 0}, {0, I, 0, 0}, {I, 0, 0, 0}}}, 
     {{{0, 0, -I, 0}, {0, 0, 0, I}, {I, 0, 0, 0}, {0, -I, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, -I}, {0, 0, -I, 0}, {0, I, 0, 0}, {I, 0, 0, 0}}, 
      {{0, I, 0, 0}, {-I, 0, 0, 0}, {0, 0, 0, I}, {0, 0, -I, 0}}}, 
     {{{0, I, 0, 0}, {-I, 0, 0, 0}, {0, 0, 0, I}, {0, 0, -I, 0}}, 
      {{0, 0, 0, I}, {0, 0, I, 0}, {0, -I, 0, 0}, {-I, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, I, 0}, {0, 0, 0, -I}, {-I, 0, 0, 0}, {0, I, 0, 0}}}, 
     {{{0, 0, 0, I}, {0, 0, I, 0}, {0, -I, 0, 0}, {-I, 0, 0, 0}}, 
      {{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, -I}, {0, 0, I, 0}}, 
      {{0, 0, -I, 0}, {0, 0, 0, I}, {I, 0, 0, 0}, {0, -I, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}}}
 
Vtilde[SMII] = {{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, I, 0, 0}, {-I, 0, 0, 0}, {0, 0, 0, -I}, {0, 0, I, 0}}, 
      {{0, 0, -I, 0}, {0, 0, 0, -I}, {I, 0, 0, 0}, {0, I, 0, 0}}, 
      {{0, 0, 0, I}, {0, 0, -I, 0}, {0, I, 0, 0}, {-I, 0, 0, 0}}}, 
     {{{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, I}, {0, 0, -I, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, -I}, {0, 0, I, 0}, {0, -I, 0, 0}, {I, 0, 0, 0}}, 
      {{0, 0, -I, 0}, {0, 0, 0, -I}, {I, 0, 0, 0}, {0, I, 0, 0}}}, 
     {{{0, 0, I, 0}, {0, 0, 0, I}, {-I, 0, 0, 0}, {0, -I, 0, 0}}, 
      {{0, 0, 0, I}, {0, 0, -I, 0}, {0, I, 0, 0}, {-I, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, I}, {0, 0, -I, 0}}}, 
     {{{0, 0, 0, -I}, {0, 0, I, 0}, {0, -I, 0, 0}, {I, 0, 0, 0}}, 
      {{0, 0, I, 0}, {0, 0, 0, I}, {-I, 0, 0, 0}, {0, -I, 0, 0}}, 
      {{0, I, 0, 0}, {-I, 0, 0, 0}, {0, 0, 0, -I}, {0, 0, I, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}}}
 
VPM[-1][SMII] = {{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}}, 
     {{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}}, 
     {{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}}, 
     {{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}}}
 
VPM[1][SMII] = {{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, I, 0}, {0, 0, 0, -I}, {-I, 0, 0, 0}, {0, I, 0, 0}}, 
      {{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, -I}, {0, 0, I, 0}}, 
      {{0, 0, 0, -I}, {0, 0, -I, 0}, {0, I, 0, 0}, {I, 0, 0, 0}}}, 
     {{{0, 0, -I, 0}, {0, 0, 0, I}, {I, 0, 0, 0}, {0, -I, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, 0, -I}, {0, 0, -I, 0}, {0, I, 0, 0}, {I, 0, 0, 0}}, 
      {{0, I, 0, 0}, {-I, 0, 0, 0}, {0, 0, 0, I}, {0, 0, -I, 0}}}, 
     {{{0, I, 0, 0}, {-I, 0, 0, 0}, {0, 0, 0, I}, {0, 0, -I, 0}}, 
      {{0, 0, 0, I}, {0, 0, I, 0}, {0, -I, 0, 0}, {-I, 0, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, 
      {{0, 0, I, 0}, {0, 0, 0, -I}, {-I, 0, 0, 0}, {0, I, 0, 0}}}, 
     {{{0, 0, 0, I}, {0, 0, I, 0}, {0, -I, 0, 0}, {-I, 0, 0, 0}}, 
      {{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, -I}, {0, 0, I, 0}}, 
      {{0, 0, -I, 0}, {0, 0, 0, I}, {I, 0, 0, 0}, {0, -I, 0, 0}}, 
      {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}}}
 
VtildePM[-1][SMII] = {{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, I, 0, 0}, {-I, 0, 0, 0}, {0, 0, 0, -I}, 
       {0, 0, I, 0}}, {{0, 0, -I, 0}, {0, 0, 0, -I}, {I, 0, 0, 0}, 
       {0, I, 0, 0}}, {{0, 0, 0, I}, {0, 0, -I, 0}, {0, I, 0, 0}, 
       {-I, 0, 0, 0}}}, {{{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, I}, 
       {0, 0, -I, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, -I}, {0, 0, I, 0}, {0, -I, 0, 0}, 
       {I, 0, 0, 0}}, {{0, 0, -I, 0}, {0, 0, 0, -I}, {I, 0, 0, 0}, 
       {0, I, 0, 0}}}, {{{0, 0, I, 0}, {0, 0, 0, I}, {-I, 0, 0, 0}, 
       {0, -I, 0, 0}}, {{0, 0, 0, I}, {0, 0, -I, 0}, {0, I, 0, 0}, 
       {-I, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, I}, 
       {0, 0, -I, 0}}}, {{{0, 0, 0, -I}, {0, 0, I, 0}, {0, -I, 0, 0}, 
       {I, 0, 0, 0}}, {{0, 0, I, 0}, {0, 0, 0, I}, {-I, 0, 0, 0}, 
       {0, -I, 0, 0}}, {{0, I, 0, 0}, {-I, 0, 0, 0}, {0, 0, 0, -I}, 
       {0, 0, I, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}}}
 
VtildePM[1][SMII] = {{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}}, {{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}}, {{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}}, {{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, 
       {0, 0, 0, 0}}}}
 
ncis[SMII] = 0
 
ntrans[SMII] = 1
 
chi0[SMII] = -1
 
PrintIell[Rep_] := IellABColor[Rep] /. AlphaBetaToSuperscripts
 
Rep = SMII
 
IellABColor[Rep_] := {IellABColorCoefficients[Rep][1][1] . 
       {\[Alpha][1], \[Alpha][2], \[Alpha][3]} + 
      IellABColorCoefficients[Rep][1][2] . {\[Beta][1], \[Beta][2], 
        \[Beta][3]}, IellABColorCoefficients[Rep][2][1] . 
       {\[Alpha][1], \[Alpha][2], \[Alpha][3]} + 
      IellABColorCoefficients[Rep][2][2] . {\[Beta][1], \[Beta][2], 
        \[Beta][3]}}
 
IellABColorCoefficients[Rep_][TildeIndex_][su2color_] := 
    Table[Tr[Table[I*ell[Rep][TildeIndex, ahat][Ii, Ji], {Ii, 1, 4}, 
         {Ji, 1, 4}] . su2matrix[su2color, bhat]]/4, {ahat, 1, 3}, 
     {bhat, 1, 3}]
 
ell[Rep_][TildeIndex_, ahat_][Ii_, Ji_] := 
    Tr[su2matrix[TildeIndex, ahat] . VtildetermsO[Rep][Ii, Ji]]/4
 
su2matrix[1, 1] = {{0, 0, 0, -I}, {0, 0, -I, 0}, {0, I, 0, 0}, {I, 0, 0, 0}}
 
su2matrix[1, 2] = {{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, -I}, {0, 0, I, 0}}
 
su2matrix[1, 3] = {{0, 0, -I, 0}, {0, 0, 0, I}, {I, 0, 0, 0}, {0, -I, 0, 0}}
 
su2matrix[2, 1] = {{0, 0, 0, -I}, {0, 0, I, 0}, {0, -I, 0, 0}, {I, 0, 0, 0}}
 
su2matrix[2, 2] = {{0, 0, -I, 0}, {0, 0, 0, -I}, {I, 0, 0, 0}, {0, I, 0, 0}}
 
su2matrix[2, 3] = {{0, -I, 0, 0}, {I, 0, 0, 0}, {0, 0, 0, I}, {0, 0, -I, 0}}
 
VtildetermsO[Rep_][Ii_, Ji_] := 
    Simplify[(-(I/2))*(Transpose[L[Rep][[Ii]]] . L[Rep][[Ji]] - 
       Transpose[L[Rep][[Ji]]] . L[Rep][[Ii]])]
 
AlphaBetaToSuperscripts = 
    {\[Alpha][1] -> "\!\(\*SuperscriptBox[\(\[Alpha]\), \(1\)]\)", 
     \[Alpha][2] -> "\!\(\*SuperscriptBox[\(\[Alpha]\), \(2\)]\)", 
     \[Alpha][3] -> "\!\(\*SuperscriptBox[\(\[Alpha]\), \(3\)]\)", 
     \[Beta][1] -> "\!\(\*SuperscriptBox[\(\[Beta]\), \(1\)]\)", 
     \[Beta][2] -> "\!\(\*SuperscriptBox[\(\[Beta]\), \(2\)]\)", 
     \[Beta][3] -> "\!\(\*SuperscriptBox[\(\[Beta]\), \(3\)]\)"}
 
LoadString = "L, R, V, Vtilde, VPM, VtildePM, ncis, ntrans, chi0, and \
PrintIell) for Rep = SMII are loaded"