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

simple variable rename causes problem with GCC 7.3 

probalby a compiler bug
This commit is contained in:
Martin Diehl 2018-11-24 09:53:18 +01:00
parent 9760b138c2
commit 1d936fc5f2
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/material.f90
View File

@ -387,9 +387,8 @@ subroutine material_init()
i, & !< integration point number i, & !< integration point number
e !< element number e !< element number
integer(pInt), dimension(:), allocatable :: & integer(pInt), dimension(:), allocatable :: &
PhaseCounter, & CounterPhase, &
CrystalliteCounter, & CounterHomogenization
HomogenizationCounter
myDebug = debug_level(debug_material) myDebug = debug_level(debug_material)
@ -488,20 +487,20 @@ subroutine material_init()
! END DEPRECATED ! END DEPRECATED
allocate(material_homogenizationAt,source=mesh_homogenizationAt) allocate(material_homogenizationAt,source=mesh_homogenizationAt)
allocate(PhaseCounter (size(config_phase)), source=0_pInt) allocate(CounterPhase (size(config_phase)), source=0_pInt)
allocate(HomogenizationCounter(size(config_homogenization)),source=0_pInt) allocate(CounterHomogenization(size(config_homogenization)),source=0_pInt)
! BEGIN DEPRECATED ! BEGIN DEPRECATED
do e = 1_pInt,mesh_NcpElems do e = 1_pInt,mesh_NcpElems
myHomog = mesh_homogenizationAt(e) myHomog = mesh_homogenizationAt(e)
do i = 1_pInt, mesh_NipsPerElem do i = 1_pInt, mesh_NipsPerElem
HomogenizationCounter(myHomog) = HomogenizationCounter(myHomog) + 1_pInt CounterHomogenization(myHomog) = CounterHomogenization(myHomog) + 1_pInt
mappingHomogenization(1:2,i,e) = [HomogenizationCounter(myHomog),myHomog] mappingHomogenization(1:2,i,e) = [CounterHomogenization(myHomog),myHomog]
do g = 1_pInt,homogenization_Ngrains(myHomog) do g = 1_pInt,homogenization_Ngrains(myHomog)
myPhase = material_phase(g,i,e) myPhase = material_phase(g,i,e)
PhaseCounter(myPhase) = PhaseCounter(myPhase)+1_pInt ! not distinguishing between instances of same phase CounterPhase(myPhase) = CounterPhase(myPhase)+1_pInt ! not distinguishing between instances of same phase
phaseAt(g,i,e) = myPhase phaseAt(g,i,e) = myPhase
phasememberAt(g,i,e) = PhaseCounter(myPhase) phasememberAt(g,i,e) = CounterPhase(myPhase)
enddo enddo
enddo enddo
enddo enddo