polishing

This commit is contained in:
Martin Diehl 2018-11-25 11:14:09 +01:00
parent c0ce95183c
commit 917453d191
1 changed files with 15 additions and 15 deletions

View File

@ -2,8 +2,8 @@
!> @author Philip Eisenlohr, Michigan State University
!> @author Zhuowen Zhao, Michigan State University
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief Introducing Voce-type kinematic hardening rule into crystal plasticity
!! formulation using a power law fitting
!> @brief Phenomenological crystal plasticity using a power law formulation for the shear rates
!! and a Voce-type kinematic hardening rule
!--------------------------------------------------------------------------------------------------
module plastic_kinehardening
use prec, only: &
@ -33,7 +33,8 @@ module plastic_kinehardening
enum, bind(c)
enumerator :: undefined_ID, &
enumerator :: &
undefined_ID, &
crss_ID, & !< critical resolved stress
crss_back_ID, & !< critical resolved back stress
sense_ID, & !< sense of acting shear stress (-1 or +1)
@ -42,7 +43,6 @@ module plastic_kinehardening
accshear_ID, &
shearrate_ID, &
resolvedstress_ID
end enum