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

Merge branch 'development' into 43-wrong-stress-in-dotstate-and-deltastate

This commit is contained in:
Martin Diehl 2018-08-25 16:02:12 +02:00
parent b8b5bac684 a463888156
commit bde242902b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/lattice.f90
View File

@ -1278,7 +1278,7 @@ subroutine lattice_init
integer(pInt) :: Nphases integer(pInt) :: Nphases
character(len=65536) :: & character(len=65536) :: &
tag = '' tag = ''
integer(pInt) :: section = 0_pInt,i,p integer(pInt) :: i,p
real(pReal), dimension(:), allocatable :: & real(pReal), dimension(:), allocatable :: &
temp, & temp, &
CoverA, & !< c/a ratio for low symmetry type lattice CoverA, & !< c/a ratio for low symmetry type lattice
@ -1388,9 +1388,9 @@ subroutine lattice_init
tag = config_phase(p)%getString('trans_lattice_structure',defaultVal=tag) tag = config_phase(p)%getString('trans_lattice_structure',defaultVal=tag)
select case(trim(tag)) select case(trim(tag))
case('bcc') case('bcc')
trans_lattice_structure(section) = LATTICE_bcc_ID trans_lattice_structure(p) = LATTICE_bcc_ID
case('hex','hexagonal') case('hex','hexagonal')
trans_lattice_structure(section) = LATTICE_hex_ID trans_lattice_structure(p) = LATTICE_hex_ID
end select end select
lattice_C66(1,1,p) = config_phase(p)%getFloat('c11',defaultVal=0.0_pReal) lattice_C66(1,1,p) = config_phase(p)%getFloat('c11',defaultVal=0.0_pReal)