typo

MarDiehl · MarDiehl · commit 5a496031864a · 2024-07-18T14:32:35.000+02:00
diff --git a/src/crystal.f90 b/src/crystal.f90
@@ -210,7 +210,7 @@ module crystal
     HP_NSLIPSYSTEM = [3, 3, 6, 12, 6]                                                               !< # of slip systems per family for hP
 
   integer, dimension(*), parameter :: &
-    HP_NTWINSYSTEM = [6, 6, 6, 6]                                                                   !< # of slip systems per family for hP
+    HP_NTWINSYSTEM = [6, 6, 6, 6]                                                                   !< # of twin systems per family for hP
 
   integer, parameter  :: &
     HP_NSLIP     = sum(HP_NSLIPSYSTEM), &                                                           !< total # of slip systems for hP
