fix Kichhoff typos

This commit is contained in:
Philip Eisenlohr 2022-11-02 20:23:56 +00:00 committed by Franz Roters
parent 11676fe782
commit 0ab9adcb5e
1 changed files with 2 additions and 2 deletions

View File

@ -1275,7 +1275,7 @@ end subroutine mechanical_restartRead
!--------------------------------------------------------------------------------------------------
!< @brief Get first Piola-Kichhoff stress (for use by non-mech physics).
!< @brief Get first Piola-Kirchhoff stress (for use by non-mech physics).
!--------------------------------------------------------------------------------------------------
module function mechanical_S(ph,en) result(S)
@ -1317,7 +1317,7 @@ end function mechanical_F_e
!--------------------------------------------------------------------------------------------------
!< @brief Get second Piola-Kichhoff stress (for use by homogenization).
!< @brief Get second Piola-Kirchhoff stress (for use by homogenization).
!--------------------------------------------------------------------------------------------------
module function phase_P(co,ce) result(P)