From 786127af10b772bc43594d3b45509c0a21a439cb Mon Sep 17 00:00:00 2001 From: Daniel Otto de Mentock Date: Mon, 16 Jan 2023 11:40:42 +0100 Subject: [PATCH] add some descriptions and correct wrong uppercase --- src/phase_mechanical_plastic_isotropic.f90 | 2 +- src/phase_mechanical_plastic_phenopowerlaw.f90 | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/phase_mechanical_plastic_isotropic.f90 b/src/phase_mechanical_plastic_isotropic.f90 index 53303df33..c28264383 100644 --- a/src/phase_mechanical_plastic_isotropic.f90 +++ b/src/phase_mechanical_plastic_isotropic.f90 @@ -106,7 +106,7 @@ module function plastic_isotropic_init() result(myPlasticity) prm%c_2 = pl%get_asFloat('c_2', defaultVal=0.0_pReal) prm%a = pl%get_asFloat('a') - prm%dilatation = pl%get_AsBool('dilatation',defaultVal = .false.) + prm%dilatation = pl%get_asBool('dilatation',defaultVal = .false.) !-------------------------------------------------------------------------------------------------- ! sanity checks diff --git a/src/phase_mechanical_plastic_phenopowerlaw.f90 b/src/phase_mechanical_plastic_phenopowerlaw.f90 index 047aeed4c..9ecbaec03 100644 --- a/src/phase_mechanical_plastic_phenopowerlaw.f90 +++ b/src/phase_mechanical_plastic_phenopowerlaw.f90 @@ -85,7 +85,8 @@ module function plastic_phenopowerlaw_init() result(myPlasticity) sizeState, sizeDotState, & startIndex, endIndex integer, dimension(:), allocatable :: & - N_sl, N_tw + N_sl, & !< number of slip-systems for a given slip family + N_tw !< number of twin-systems for a given twin family real(pReal), dimension(:), allocatable :: & xi_0_sl, & !< initial critical shear stress for slip xi_0_tw, & !< initial critical shear stress for twin