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, &