From eb7db3acbd7e879db525c521755070294999aa2d Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Tue, 30 Apr 2019 22:47:49 +0200
Subject: [PATCH] trying to use variables as in the DAMASK paper

---
 src/homogenization_mech_RGC.f90 | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/homogenization_mech_RGC.f90 b/src/homogenization_mech_RGC.f90
index 57b573506..5003f7c24 100644
--- a/src/homogenization_mech_RGC.f90
+++ b/src/homogenization_mech_RGC.f90
@@ -1125,7 +1125,16 @@ subroutine mech_RGC_results(instance,group)
 
   outputsLoop: do o = 1,size(prm%outputID)
     select case(prm%outputID(o))
-
+    
+      case (constitutivework_ID)
+        call results_writeDataset(group,stt%work,'W',&
+                                  'work density','J/m³')
+      case (magnitudemismatch_ID)
+        call results_writeDataset(group,dst%mismatch,'M',&
+                                  'average mismatch tensor','tbd')
+      case (penaltyenergy_ID)
+        call results_writeDataset(group,stt%penaltyEnergy,'R',&
+                                  'mismatch penalty density','tbd')
 
     end select
   enddo outputsLoop