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