From d4d3178717c16eb08344687bc048be608cf90e56 Mon Sep 17 00:00:00 2001
From: Philip Eisenlohr <eisenlohr@egr.msu.edu>
Date: Thu, 22 Jun 2023 15:27:46 +0000
Subject: [PATCH] Corrected labeling of {111} planes

---
 src/lattice.f90 | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/lattice.f90 b/src/lattice.f90
index 96a55aea4..c44e775db 100644
--- a/src/lattice.f90
+++ b/src/lattice.f90
@@ -41,18 +41,18 @@ module lattice
   real(pREAL), dimension(3+3,CF_NSLIP), parameter :: &
     CF_SYSTEMSLIP = reshape(real([&
     ! <110>{111} systems (Thompson tetrahedron labeling according to Fig. 3 of 10.1016/S1572-4859(05)80003-8)
-       0, 1,-1,     1, 1, 1, & ! δAC
-      -1, 0, 1,     1, 1, 1, & ! δCB
-       1,-1, 0,     1, 1, 1, & ! δBA
-       0,-1,-1,    -1,-1, 1, & ! γBD
-       1, 0, 1,    -1,-1, 1, & ! γDA
-      -1, 1, 0,    -1,-1, 1, & ! γAB
-       0,-1, 1,     1,-1,-1, & ! βCA
-      -1, 0,-1,     1,-1,-1, & ! βAD
-       1, 1, 0,     1,-1,-1, & ! βDC
-       0, 1, 1,    -1, 1,-1, & ! αDB
-       1, 0,-1,    -1, 1,-1, & ! αBC
-      -1,-1, 0,    -1, 1,-1, & ! αCD
+       0, 1,-1,     1, 1, 1, & ! AC(d)
+      -1, 0, 1,     1, 1, 1, & ! CB(d)
+       1,-1, 0,     1, 1, 1, & ! BA(d)
+       0,-1,-1,    -1,-1, 1, & ! BD(c)
+       1, 0, 1,    -1,-1, 1, & ! DA(c)
+      -1, 1, 0,    -1,-1, 1, & ! AB(c)
+       0,-1, 1,     1,-1,-1, & ! CA(b)
+      -1, 0,-1,     1,-1,-1, & ! AD(b)
+       1, 1, 0,     1,-1,-1, & ! DC(b)
+       0, 1, 1,    -1, 1,-1, & ! DB(a)
+       1, 0,-1,    -1, 1,-1, & ! BC(a)
+      -1,-1, 0,    -1, 1,-1, & ! CD(a)
      ! <110>{110}/non-octahedral systems
        1, 1, 0,     1,-1, 0, &
        1,-1, 0,     1, 1, 0, &