From 8572ec836812cfebfed77055a1237846828efb87 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Tue, 29 Dec 2020 18:45:11 +0100
Subject: [PATCH] preparing encapsulation

---
 src/constitutive.f90 | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/constitutive.f90 b/src/constitutive.f90
index 59c3bf559..e39a0df2e 100644
--- a/src/constitutive.f90
+++ b/src/constitutive.f90
@@ -1466,6 +1466,22 @@ function constitutive_mech_getF(co,ip,el) result(F)
 end function constitutive_mech_getF
 
 
+! getter for non-thermal (e.g. mech)
+function constitutive_thermal_T(co,ip,el) result(T)
+
+  integer, intent(in) :: co, ip, el
+  real(pReal) :: T
+ 
+  integer :: ho, tme
+
+  ho = material_homogenizationAt(el)
+  tme = material_homogenizationMemberAt(ip,el)
+
+  T = temperature(ho)%p(tme)
+
+end function constitutive_thermal_T
+
+
 ! setter for homogenization
 subroutine constitutive_mech_setF(F,co,ip,el)