223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

nicer permutation of cleavage planes

This commit is contained in:
Pratheek Shanthraj 2014-10-31 18:37:37 +00:00
parent 629ff8bdef
commit 26a609dbee
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
code/lattice.f90
View File

@ -300,9 +300,9 @@ module lattice
real(pReal), dimension(3+3,LATTICE_fcc_Ncleavage), parameter, private :: & real(pReal), dimension(3+3,LATTICE_fcc_Ncleavage), parameter, private :: &
LATTICE_fcc_systemCleavage = reshape(real([& LATTICE_fcc_systemCleavage = reshape(real([&
! Cleavage direction Plane normal ! Cleavage direction Plane normal
1, 0, 0, 0, 1, 0, & 0, 1, 0, 1, 0, 0, &
0, 1, 0, 0, 0, 1, & 0, 0, 1, 0, 1, 0, &
0, 0, 1, 1, 0, 0, & 1, 0, 0, 0, 0, 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, &
@ -498,9 +498,9 @@ module lattice
real(pReal), dimension(3+3,LATTICE_bcc_Ncleavage), parameter, private :: & real(pReal), dimension(3+3,LATTICE_bcc_Ncleavage), parameter, private :: &
LATTICE_bcc_systemCleavage = reshape(real([& LATTICE_bcc_systemCleavage = reshape(real([&
! Cleavage direction Plane normal ! Cleavage direction Plane normal
1, 0, 0, 0, 1, 0, & 0, 1, 0, 1, 0, 0, &
0, 1, 0, 0, 0, 1, & 0, 0, 1, 0, 1, 0, &
0, 0, 1, 1, 0, 0, & 1, 0, 0, 0, 0, 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, &
@ -801,9 +801,9 @@ module lattice
real(pReal), dimension(3+3,LATTICE_iso_Ncleavage), parameter, private :: & real(pReal), dimension(3+3,LATTICE_iso_Ncleavage), parameter, private :: &
LATTICE_iso_systemCleavage = reshape(real([& LATTICE_iso_systemCleavage = reshape(real([&
! Cleavage direction Plane normal ! Cleavage direction Plane normal
1, 0, 0, 0, 1, 0, & 0, 1, 0, 1, 0, 0, &
0, 1, 0, 0, 0, 1, & 0, 0, 1, 0, 1, 0, &
0, 0, 1, 1, 0, 0 & 1, 0, 0, 0, 0, 1 &
],pReal),[ 3_pInt + 3_pInt,LATTICE_iso_Ncleavage]) ],pReal),[ 3_pInt + 3_pInt,LATTICE_iso_Ncleavage])
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -817,9 +817,9 @@ module lattice
real(pReal), dimension(3+3,LATTICE_ortho_Ncleavage), parameter, private :: & real(pReal), dimension(3+3,LATTICE_ortho_Ncleavage), parameter, private :: &
LATTICE_ortho_systemCleavage = reshape(real([& LATTICE_ortho_systemCleavage = reshape(real([&
! Cleavage direction Plane normal ! Cleavage direction Plane normal
1, 0, 0, 0, 1, 0, & 0, 1, 0, 1, 0, 0, &
0, 1, 0, 0, 0, 1, & 0, 0, 1, 0, 1, 0, &
0, 0, 1, 1, 0, 0 & 1, 0, 0, 0, 0, 1 &
],pReal),[ 3_pInt + 3_pInt,LATTICE_ortho_Ncleavage]) ],pReal),[ 3_pInt + 3_pInt,LATTICE_ortho_Ncleavage])
real(pReal), dimension(:,:,:), allocatable, public, protected :: & real(pReal), dimension(:,:,:), allocatable, public, protected :: &