From 2f27c64c39e3ff6aea34950ef230f1da4de075dc Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Tue, 30 Apr 2019 23:05:21 +0200
Subject: [PATCH] homogenization output active

---
 src/homogenization.f90          | 4 +++-
 src/homogenization_mech_RGC.f90 | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/homogenization.f90 b/src/homogenization.f90
index d2a3d943c..fe15364b8 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -913,6 +913,7 @@ end function postResults
 subroutine homogenization_results
 #if defined(PETSc) || defined(DAMASK_HDF5)
   use results
+  use homogenization_mech_RGC
   use HDF5_utilities
   use config, only: &
     config_name_homogenization => homogenization_name                                               ! anticipate logical name
@@ -932,7 +933,8 @@ subroutine homogenization_results
     
     call HDF5_closeGroup(results_addGroup(group))  
     select case(material_homogenization_type(p))
-    
+      case(HOMOGENIZATION_rgc_ID)
+        call mech_RGC_results(homogenization_typeInstance(p),group)
     end select
   
  enddo   
diff --git a/src/homogenization_mech_RGC.f90 b/src/homogenization_mech_RGC.f90
index 62f0ca729..c0390e4ec 100644
--- a/src/homogenization_mech_RGC.f90
+++ b/src/homogenization_mech_RGC.f90
@@ -76,7 +76,8 @@ module homogenization_mech_RGC
    homogenization_RGC_partitionDeformation, &
    homogenization_RGC_averageStressAndItsTangent, &
    homogenization_RGC_updateState, &
-   homogenization_RGC_postResults
+   homogenization_RGC_postResults, &
+   mech_RGC_results ! name suited for planned submodule situation
  private :: &
    relaxationVector, &
    interfaceNormal, &