read vector-parameters
This commit is contained in:
parent
3ca34c8f80
commit
47a9d88a15
|
@ -91,6 +91,8 @@ subroutine source_damage_anisoBrittle_init(fileUnit)
|
||||||
IO_error, &
|
IO_error, &
|
||||||
IO_timeStamp, &
|
IO_timeStamp, &
|
||||||
IO_EOF
|
IO_EOF
|
||||||
|
use math, only: &
|
||||||
|
math_expand
|
||||||
use material, only: &
|
use material, only: &
|
||||||
material_allocateSourceState, &
|
material_allocateSourceState, &
|
||||||
phase_source, &
|
phase_source, &
|
||||||
|
@ -176,6 +178,13 @@ subroutine source_damage_anisoBrittle_init(fileUnit)
|
||||||
|
|
||||||
prm%Ncleavage = config%getInts('ncleavage',defaultVal=emptyIntArray)
|
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
|
! exit if any parameter is out of range
|
||||||
if (extmsg /= '') &
|
if (extmsg /= '') &
|
||||||
|
|
|
@ -93,6 +93,8 @@ subroutine source_damage_anisoDuctile_init(fileUnit)
|
||||||
IO_error, &
|
IO_error, &
|
||||||
IO_timeStamp, &
|
IO_timeStamp, &
|
||||||
IO_EOF
|
IO_EOF
|
||||||
|
use math, only: &
|
||||||
|
math_expand
|
||||||
use material, only: &
|
use material, only: &
|
||||||
material_allocateSourceState, &
|
material_allocateSourceState, &
|
||||||
phase_source, &
|
phase_source, &
|
||||||
|
@ -176,6 +178,13 @@ subroutine source_damage_anisoDuctile_init(fileUnit)
|
||||||
|
|
||||||
prm%Nslip = config%getInts('nslip',defaultVal=emptyIntArray)
|
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
|
! exit if any parameter is out of range
|
||||||
if (extmsg /= '') &
|
if (extmsg /= '') &
|
||||||
|
|
Loading…
Reference in New Issue