From e4a0b0722500528abbb7fe67c4f0c43246ba9662 Mon Sep 17 00:00:00 2001
From: Philip Eisenlohr <eisenlohr@egr.msu.edu>
Date: Wed, 21 Jun 2023 11:21:44 -0400
Subject: [PATCH 1/2] removed confusing Schmid-Boas in favor of cleaner
 Thompson tetrahedron notation

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

diff --git a/src/lattice.f90 b/src/lattice.f90
index 350860ecb..96a55aea4 100644
--- a/src/lattice.f90
+++ b/src/lattice.f90
@@ -40,19 +40,19 @@ module lattice
 
   real(pREAL), dimension(3+3,CF_NSLIP), parameter :: &
     CF_SYSTEMSLIP = reshape(real([&
-    ! <110>{111} systems
-       0, 1,-1,     1, 1, 1, & ! B2
-      -1, 0, 1,     1, 1, 1, & ! B4
-       1,-1, 0,     1, 1, 1, & ! B5
-       0,-1,-1,    -1,-1, 1, & ! C1
-       1, 0, 1,    -1,-1, 1, & ! C3
-      -1, 1, 0,    -1,-1, 1, & ! C5
-       0,-1, 1,     1,-1,-1, & ! A2
-      -1, 0,-1,     1,-1,-1, & ! A3
-       1, 1, 0,     1,-1,-1, & ! A6
-       0, 1, 1,    -1, 1,-1, & ! D1
-       1, 0,-1,    -1, 1,-1, & ! D4
-      -1,-1, 0,    -1, 1,-1, & ! D6
+    ! <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
      ! <110>{110}/non-octahedral systems
        1, 1, 0,     1,-1, 0, &
        1,-1, 0,     1, 1, 0, &
@@ -123,31 +123,31 @@ module lattice
   real(pREAL), dimension(3+3,CI_NSLIP), parameter :: &
     CI_SYSTEMSLIP = reshape(real([&
     ! <111>{110} systems
-       1,-1, 1,     0, 1, 1, & ! D1
-      -1,-1, 1,     0, 1, 1, & ! C1
-       1, 1, 1,     0,-1, 1, & ! B2
-      -1, 1, 1,     0,-1, 1, & ! A2
-      -1, 1, 1,     1, 0, 1, & ! A3
-      -1,-1, 1,     1, 0, 1, & ! C3
-       1, 1, 1,    -1, 0, 1, & ! B4
-       1,-1, 1,    -1, 0, 1, & ! D4
-      -1, 1, 1,     1, 1, 0, & ! A6
-      -1, 1,-1,     1, 1, 0, & ! D6
-       1, 1, 1,    -1, 1, 0, & ! B5
-       1, 1,-1,    -1, 1, 0, & ! C5
+       1,-1, 1,     0, 1, 1, &
+      -1,-1, 1,     0, 1, 1, &
+       1, 1, 1,     0,-1, 1, &
+      -1, 1, 1,     0,-1, 1, &
+      -1, 1, 1,     1, 0, 1, &
+      -1,-1, 1,     1, 0, 1, &
+       1, 1, 1,    -1, 0, 1, &
+       1,-1, 1,    -1, 0, 1, &
+      -1, 1, 1,     1, 1, 0, &
+      -1, 1,-1,     1, 1, 0, &
+       1, 1, 1,    -1, 1, 0, &
+       1, 1,-1,    -1, 1, 0, &
      ! <111>{112} systems
-      -1, 1, 1,     2, 1, 1, & ! A-4
-       1, 1, 1,    -2, 1, 1, & ! B-3
-       1, 1,-1,     2,-1, 1, & ! C-10
-       1,-1, 1,     2, 1,-1, & ! D-9
-       1,-1, 1,     1, 2, 1, & ! D-6
-       1, 1,-1,    -1, 2, 1, & ! C-5
-       1, 1, 1,     1,-2, 1, & ! B-12
-      -1, 1, 1,     1, 2,-1, & ! A-11
-       1, 1,-1,     1, 1, 2, & ! C-2
-       1,-1, 1,    -1, 1, 2, & ! D-1
-      -1, 1, 1,     1,-1, 2, & ! A-8
-       1, 1, 1,     1, 1,-2, & ! B-7
+      -1, 1, 1,     2, 1, 1, &
+       1, 1, 1,    -2, 1, 1, &
+       1, 1,-1,     2,-1, 1, &
+       1,-1, 1,     2, 1,-1, &
+       1,-1, 1,     1, 2, 1, &
+       1, 1,-1,    -1, 2, 1, &
+       1, 1, 1,     1,-2, 1, &
+      -1, 1, 1,     1, 2,-1, &
+       1, 1,-1,     1, 1, 2, &
+       1,-1, 1,    -1, 1, 2, &
+      -1, 1, 1,     1,-1, 2, &
+       1, 1, 1,     1, 1,-2, &
      ! Slip system <111>{123}
        1, 1,-1,     1, 2, 3, &
        1,-1, 1,    -1, 2, 3, &

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 2/2] 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, &