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

read vector-parameters

This commit is contained in:
Martin Diehl 2019-02-13 09:16:06 +01:00
parent 3ca34c8f80
commit 47a9d88a15
2 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/source_damage_anisoBrittle.f90
View File

@ -91,6 +91,8 @@ subroutine source_damage_anisoBrittle_init(fileUnit)
IO_error, &
IO_timeStamp, &
IO_EOF
use math, only: &
math_expand
use material, only: &
material_allocateSourceState, &
phase_source, &
@ -175,7 +177,14 @@ subroutine source_damage_anisoBrittle_init(fileUnit)
if (prm%sdot_0 <= 0.0_pReal) extmsg = trim(extmsg)//' anisobrittle_sdot0'
prm%Ncleavage = config%getInts('ncleavage',defaultVal=emptyIntArray)
prm%critDisp = config%getFloats('anisobrittle_criticaldisplacement',requiredSize=size(prm%Ncleavage))
prm%critLoad = config%getFloats('anisobrittle_criticalload', requiredSize=size(prm%Ncleavage))
! expand: family => system
prm%critDisp = math_expand(prm%critDisp, prm%Ncleavage)
prm%critLoad = math_expand(prm%critLoad, prm%Ncleavage)
!--------------------------------------------------------------------------------------------------
! exit if any parameter is out of range
if (extmsg /= '') &

9
src/source_damage_anisoDuctile.f90
View File

@ -93,6 +93,8 @@ subroutine source_damage_anisoDuctile_init(fileUnit)
IO_error, &
IO_timeStamp, &
IO_EOF
use math, only: &
math_expand
use material, only: &
material_allocateSourceState, &
phase_source, &
@ -176,6 +178,13 @@ subroutine source_damage_anisoDuctile_init(fileUnit)
prm%Nslip = config%getInts('nslip',defaultVal=emptyIntArray)
prm%critPlasticStrain = config%getFloats('anisoductile_criticalplasticstrain',requiredSize=size(prm%Nslip))
prm%critLoad = config%getFloats('anisoductile_criticalload', requiredSize=size(prm%Nslip))
! expand: family => system
prm%critPlasticStrain = math_expand(prm%critPlasticStrain, prm%Nslip)
prm%critLoad = math_expand(prm%critLoad, prm%Nslip)
!--------------------------------------------------------------------------------------------------
! exit if any parameter is out of range
if (extmsg /= '') &