From d64ad82ce0246376c86cab8dbf6f99255923001d Mon Sep 17 00:00:00 2001 From: "f.basile" Date: Fri, 7 May 2021 10:24:04 +0200 Subject: [PATCH] use negative numbers to have unique names for the {112} slip system in BCC --- src/lattice.f90 | 48 ++++++++++++++++++++++++------------------------ 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index 06986b42b..027f313c7 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -133,31 +133,31 @@ module lattice BCC_SYSTEMSLIP = reshape(real([& ! Slip direction Plane normal ! Slip system <111>{110} - 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, & + 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 ! Slip system <111>{112} - -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 & + -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 ],pReal),shape(BCC_SYSTEMSLIP)) real(pReal), dimension(3+3,BCC_NTWIN), parameter :: &