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

fixed bug in symmetrizing 2nd order tensor

This commit is contained in:
Pratheek Shanthraj 2014-07-08 01:02:29 +00:00
parent d8f51089de
commit 4af3459424
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/lattice.f90
View File

@ -1281,7 +1281,7 @@ pure function lattice_symmetrize33(struct,T33)
lattice_symmetrize33(3,3) = T33(3,3) lattice_symmetrize33(3,3) = T33(3,3)
case (LATTICE_ort_ID) case (LATTICE_ort_ID)
lattice_symmetrize33(1,1) = T33(1,1) lattice_symmetrize33(1,1) = T33(1,1)
lattice_symmetrize33(2,2) = T33(2,3) lattice_symmetrize33(2,2) = T33(2,2)
lattice_symmetrize33(3,3) = T33(3,3) lattice_symmetrize33(3,3) = T33(3,3)
case default case default
lattice_symmetrize33 = T33 lattice_symmetrize33 = T33