From 8ace3411b4c673daf9fa57589e57e45d6c0ca1cd Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 5 Dec 2023 15:58:06 +0100 Subject: [PATCH] restore correct behavior --- src/misc.f90 | 2 +- src/phase_mechanical_plastic_phenopowerlaw.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/misc.f90 b/src/misc.f90 index 1d546dd30..ac8f37839 100644 --- a/src/misc.f90 +++ b/src/misc.f90 @@ -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 diff --git a/src/phase_mechanical_plastic_phenopowerlaw.f90 b/src/phase_mechanical_plastic_phenopowerlaw.f90 index 2368e7e07..095f72b74 100644 --- a/src/phase_mechanical_plastic_phenopowerlaw.f90 +++ b/src/phase_mechanical_plastic_phenopowerlaw.f90 @@ -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), &