added index attribute, fixed F4 Cartan matrix

2017-01-31 21:08:36 +01:00
parent e3606dbc8f 0078da79a7
commit cc3e5952b1
4 changed files with 407 additions and 4 deletions
--- a/weyl.c
+++ b/weyl.c
@@ -452,7 +452,7 @@ void weyl_cartan_matrix(semisimple_type_t type, int *m)
      A[1][3] = A[3][1] = -1;
      break;
    case 'F':
-      A[3][2] = -2;
+      A[2][1] = -2;
      break;
    case 'G':
      A[1][0] = -3;