some small improvements, still something wrong, probably in crystallite.f90

This commit is contained in:
Martin Diehl 2013-12-13 14:14:17 +00:00
parent 84d51d743c
commit d5bdcf5a6d
2 changed files with 6 additions and 4 deletions

View File

@ -220,7 +220,7 @@ subroutine crystallite_init(temperature)
section = 0_pInt, & section = 0_pInt, &
j, & j, &
p, & p, &
output, & output = 0_pInt, &
mySize, & mySize, &
myPhase, & myPhase, &
myMat myMat
@ -316,7 +316,7 @@ subroutine crystallite_init(temperature)
case ('(output)') case ('(output)')
output = output + 1_pInt output = output + 1_pInt
crystallite_output(output,section) = IO_lc(IO_stringValue(line,positions,2_pInt)) crystallite_output(output,section) = IO_lc(IO_stringValue(line,positions,2_pInt))
select case(IO_lc(IO_stringValue(line,positions,2_pInt))) select case(crystallite_output(output,section))
case ('phase') case ('phase')
crystallite_outputID(output,section) = phase_ID crystallite_outputID(output,section) = phase_ID
case ('texture') case ('texture')

View File

@ -74,8 +74,10 @@ module material
MATERIAL_partPhase = 'phase' !< keyword for phase part MATERIAL_partPhase = 'phase' !< keyword for phase part
integer(kind(ELASTICITY_undefined_ID)), dimension(:), allocatable, public, protected :: & integer(kind(ELASTICITY_undefined_ID)), dimension(:), allocatable, public, protected :: &
phase_elasticity, & !< elasticity of each phase phase_elasticity !< elasticity of each phase
phase_plasticity, & !< plasticity of each phase integer(kind(PLASTICITY_undefined_ID)), dimension(:), allocatable, public, protected :: &
phase_plasticity !< plasticity of each phase
integer(kind(HOMOGENIZATION_undefined_ID)), dimension(:), allocatable, public, protected :: &
homogenization_type !< type of each homogenization homogenization_type !< type of each homogenization
character(len=64), dimension(:), allocatable, public, protected :: & character(len=64), dimension(:), allocatable, public, protected :: &