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

Merge commit 'v2.0.2-415-gc6c85341'

This commit is contained in:
Test User 2018-08-26 23:28:34 +02:00
parent d9c509cc5e c6c853419b
commit 5f9cf634fd
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PRIVATE

@ -1 +1 @@
Subproject commit dfd67ea44ba88ee1e0a33266a3986c64137908cf Subproject commit 81fd7109fea8456b8eecaaef0eec041edcce7792

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)