From 0ab9adcb5e640411318bb40cbb0661cd8eb4e3b4 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Wed, 2 Nov 2022 20:23:56 +0000 Subject: [PATCH] fix Kichhoff typos --- src/phase_mechanical.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/phase_mechanical.f90 b/src/phase_mechanical.f90 index d1f0e7ab0..325494e3c 100644 --- a/src/phase_mechanical.f90 +++ b/src/phase_mechanical.f90 @@ -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)