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

array of size 0 seems to be a common source for segmentation fault

This commit is contained in:
Martin Diehl 2018-07-03 22:58:49 +02:00
parent b1a7eca528
commit 63057998fe
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/material.f90
View File

@ -692,7 +692,7 @@ subroutine material_parseMicrostructure
implicit none implicit none
character(len=65536), dimension(:), allocatable :: & character(len=65536), dimension(:), allocatable :: &
str strings
integer(pInt), allocatable, dimension(:) :: chunkPos integer(pInt), allocatable, dimension(:) :: chunkPos
integer(pInt) :: e, m, c, i integer(pInt) :: e, m, c, i
character(len=65536) :: & character(len=65536) :: &
@ -719,21 +719,22 @@ subroutine material_parseMicrostructure
allocate(microstructure_texture (microstructure_maxNconstituents,size(config_microstructure)),source=0_pInt) allocate(microstructure_texture (microstructure_maxNconstituents,size(config_microstructure)),source=0_pInt)
allocate(microstructure_fraction(microstructure_maxNconstituents,size(config_microstructure)),source=0.0_pReal) allocate(microstructure_fraction(microstructure_maxNconstituents,size(config_microstructure)),source=0.0_pReal)
allocate(strings(1)) ! Intel 16.0 Bug
do m=1_pInt, size(config_microstructure) do m=1_pInt, size(config_microstructure)
str = config_microstructure(m)%getStrings('(constituent)',raw=.true.) strings = config_microstructure(m)%getStrings('(constituent)',raw=.true.)
do c = 1_pInt, size(str) do c = 1_pInt, size(strings)
chunkPos = IO_stringPos(str(c)) chunkPos = IO_stringPos(strings(c))
do i = 1_pInt,5_pInt,2_pInt do i = 1_pInt,5_pInt,2_pInt
tag = IO_stringValue(str(c),chunkPos,i) tag = IO_stringValue(strings(c),chunkPos,i)
select case (tag) select case (tag)
case('phase') case('phase')
microstructure_phase(c,m) = IO_intValue(str(c),chunkPos,i+1_pInt) microstructure_phase(c,m) = IO_intValue(strings(c),chunkPos,i+1_pInt)
case('texture') case('texture')
microstructure_texture(c,m) = IO_intValue(str(c),chunkPos,i+1_pInt) microstructure_texture(c,m) = IO_intValue(strings(c),chunkPos,i+1_pInt)
case('fraction') case('fraction')
microstructure_fraction(c,m) = IO_floatValue(str(c),chunkPos,i+1_pInt) microstructure_fraction(c,m) = IO_floatValue(strings(c),chunkPos,i+1_pInt)
end select end select
enddo enddo