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

restore correct behavior

This commit is contained in:
Martin Diehl 2023-12-05 15:58:06 +01:00
parent 660b472747
commit 8ace3411b4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/misc.f90
View File

@ -143,7 +143,7 @@ end function misc_prefixOptions
!--------------------------------------------------------------------------------------------------
pure function misc_zeros(N)
integer, intent(in) :: N !< number of ones
integer, intent(in) :: N !< number of zeros
real(pREAL), dimension(N) :: misc_zeros

2
src/phase_mechanical_plastic_phenopowerlaw.f90
View File

@ -147,7 +147,7 @@ module function plastic_phenopowerlaw_init() result(myPlasticity)
xi_0_sl = math_expand(pl%get_as1dReal('xi_0_sl', requiredSize=size(N_sl)), N_sl)
prm%xi_inf_sl = math_expand(pl%get_as1dReal('xi_inf_sl', requiredSize=size(N_sl)), N_sl)
prm%c_1 = math_expand(pl%get_as1dReal('c_1', requiredSize=size(N_sl), &
defaultVal=misc_ones(size(N_sl))), N_sl)
defaultVal=misc_zeros(size(N_sl))), N_sl)
prm%c_2 = math_expand(pl%get_as1dReal('c_2', requiredSize=size(N_sl), &
defaultVal=misc_ones(size(N_sl))), N_sl)
prm%f_sat_sl_tw = math_expand(pl%get_as1dReal('f_sat_sl-tw', requiredSize=size(N_sl), &