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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/crystallite.f90
View File

@ -220,7 +220,7 @@ subroutine crystallite_init(temperature)
section = 0_pInt, &
j, &
p, &
output, &
output = 0_pInt, &
mySize, &
myPhase, &
myMat
@ -316,7 +316,7 @@ subroutine crystallite_init(temperature)
case ('(output)')
output = output + 1_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')
crystallite_outputID(output,section) = phase_ID
case ('texture')

6
code/material.f90
View File

@ -74,8 +74,10 @@ module material
MATERIAL_partPhase = 'phase' !< keyword for phase part
integer(kind(ELASTICITY_undefined_ID)), dimension(:), allocatable, public, protected :: &
phase_elasticity, & !< elasticity of each phase
phase_plasticity, & !< plasticity of each phase
phase_elasticity !< elasticity 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
character(len=64), dimension(:), allocatable, public, protected :: &