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

fixed bug introduced in rev2777: renamed all remaining occurrences of variable "ncomponents" to "nconstituents"

This commit is contained in:
Christoph Kords 2013-12-12 10:06:39 +00:00
parent 0f8790c148
commit dd77690a68
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/homogenization_isostrain.f90
View File

@ -134,7 +134,7 @@ subroutine homogenization_isostrain_init(myUnit)
homogenization_isostrain_output(output,i) = IO_lc(IO_stringValue(line,positions,2_pInt)) homogenization_isostrain_output(output,i) = IO_lc(IO_stringValue(line,positions,2_pInt))
select case(homogenization_isostrain_output(output,i)) select case(homogenization_isostrain_output(output,i))
case('nconstituents','ngrains') case('nconstituents','ngrains')
homogenization_isostrain_outputID(output,i) = ncomponents homogenization_isostrain_outputID(output,i) = nconstituents
case('temperature') case('temperature')
homogenization_isostrain_outputID(output,i) = temperature homogenization_isostrain_outputID(output,i) = temperature
case('ipcoords') case('ipcoords')
@ -167,7 +167,7 @@ subroutine homogenization_isostrain_init(myUnit)
do j = 1_pInt,maxval(homogenization_Noutput) do j = 1_pInt,maxval(homogenization_Noutput)
select case(homogenization_isostrain_outputID(j,i)) select case(homogenization_isostrain_outputID(j,i))
case(ncomponents, temperature) case(nconstituents, temperature)
mySize = 1_pInt mySize = 1_pInt
case(ipcoords) case(ipcoords)
mySize = 3_pInt mySize = 3_pInt
@ -285,7 +285,7 @@ pure function homogenization_isostrain_postResults(ip,el,avgP,avgF)
do o = 1_pInt,homogenization_Noutput(mesh_element(3,el)) do o = 1_pInt,homogenization_Noutput(mesh_element(3,el))
select case(homogenization_isostrain_outputID(o,homID)) select case(homogenization_isostrain_outputID(o,homID))
case (ncomponents) case (nconstituents)
homogenization_isostrain_postResults(c+1_pInt) = real(homogenization_isostrain_Ngrains(homID),pReal) homogenization_isostrain_postResults(c+1_pInt) = real(homogenization_isostrain_Ngrains(homID),pReal)
c = c + 1_pInt c = c + 1_pInt
case (temperature) case (temperature)