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

test failed with Intel 18.0.1 

don't know what is going on here. 18.0.3 and gfortran work fine. Bug?
This commit is contained in:
Martin Diehl 2019-01-13 18:13:00 +01:00
parent 6b6a26eb18
commit 9058587a2b
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/homogenization_RGC.f90
View File

@ -106,7 +106,7 @@ subroutine homogenization_RGC_init()
debug_homogenization, & debug_homogenization, &
debug_levelBasic debug_levelBasic
use math, only: & use math, only: &
math_EulerToR,& math_EulerToR, &
INRAD INRAD
use IO, only: & use IO, only: &
IO_error, & IO_error, &
@ -180,9 +180,11 @@ subroutine homogenization_RGC_init()
prm%Nconstituents = config%getInts('clustersize',requiredShape=[3]) prm%Nconstituents = config%getInts('clustersize',requiredShape=[3])
if (homogenization_Ngrains(h) /= product(prm%Nconstituents)) & if (homogenization_Ngrains(h) /= product(prm%Nconstituents)) &
call IO_error(211_pInt,ext_msg='clustersize ('//HOMOGENIZATION_RGC_label//')') call IO_error(211_pInt,ext_msg='clustersize ('//HOMOGENIZATION_RGC_label//')')
prm%xiAlpha = config%getFloat('scalingparameter') prm%xiAlpha = config%getFloat('scalingparameter')
prm%ciAlpha = config%getFloat('overproportionality') prm%ciAlpha = config%getFloat('overproportionality')
prm%dAlpha = config%getFloats('grainsize',requiredShape=[3])
prm%dAlpha = config%getFloats('grainsize', requiredShape=[3])
prm%angles = config%getFloats('clusterorientation',requiredShape=[3]) prm%angles = config%getFloats('clusterorientation',requiredShape=[3])
outputs = config%getStrings('(output)',defaultVal=emptyStringArray) outputs = config%getStrings('(output)',defaultVal=emptyStringArray)
@ -239,15 +241,15 @@ subroutine homogenization_RGC_init()
stt%work => homogState(h)%state(nIntFaceTot+1,:) stt%work => homogState(h)%state(nIntFaceTot+1,:)
stt%penaltyEnergy => homogState(h)%state(nIntFaceTot+2,:) stt%penaltyEnergy => homogState(h)%state(nIntFaceTot+2,:)
allocate(dst%volumeDiscrepancy( NofMyHomog)) allocate(dst%volumeDiscrepancy( NofMyHomog))
allocate(dst%relaxationRate_avg( NofMyHomog)) allocate(dst%relaxationRate_avg( NofMyHomog))
allocate(dst%relaxationRate_max( NofMyHomog)) allocate(dst%relaxationRate_max( NofMyHomog))
allocate(dst%mismatch( 3, NofMyHomog)) allocate(dst%mismatch( 3,NofMyHomog))
allocate(dst%orientation( 3,3,NofMyHomog))
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! assigning cluster orientations ! assigning cluster orientations
dst%orientation = spread(math_EulerToR(prm%angles*inRad),3,NofMyHomog) dependentState(homogenization_typeInstance(h))%orientation = spread(math_EulerToR(prm%angles*inRad),3,NofMyHomog)
!dst%orientation = spread(math_EulerToR(prm%angles*inRad),3,NofMyHomog) ifort version 18.0.1 crashes (for whatever reason)
end associate end associate