From 1c180864022c5484813ced9b85725938441efc02 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 9 Dec 2019 05:58:27 +0100
Subject: [PATCH] not needed anymore

---
 src/constitutive.f90   | 18 ++++--------------
 src/homogenization.f90 |  3 +--
 2 files changed, 5 insertions(+), 16 deletions(-)

diff --git a/src/constitutive.f90 b/src/constitutive.f90
index 6ad5c76cc..2d0688467 100644
--- a/src/constitutive.f90
+++ b/src/constitutive.f90
@@ -37,7 +37,6 @@ module constitutive
   
   integer, public, protected :: &
     constitutive_plasticity_maxSizeDotState, &
-    constitutive_source_maxSizePostResults, &
     constitutive_source_maxSizeDotState
  
   public :: &
@@ -60,17 +59,9 @@ contains
 !--------------------------------------------------------------------------------------------------
 subroutine constitutive_init
 
-  integer, parameter :: FILEUNIT = 204
   integer :: &
-    o, &                                                                                            !< counter in output loop
     ph, &                                                                                           !< counter in phase loop
-    s, &                                                                                            !< counter in source loop
-    ins                                                                                             !< instance of plasticity/source
- 
-  integer, dimension(:,:), pointer :: thisSize
-  character(len=64), dimension(:,:), pointer :: thisOutput
-  character(len=32) :: outputName                                                                   !< name of output, intermediate fix until HDF5 output is ready
-  logical :: knownSource
+    s                                                                                               !< counter in source loop
 
 !--------------------------------------------------------------------------------------------------
 ! initialized plasticity
@@ -105,16 +96,15 @@ subroutine constitutive_init
   mainProcess: if (worldrank == 0) then
 !--------------------------------------------------------------------------------------------------
 ! write description file for constitutive output
-    call IO_write_jobFile(FILEUNIT,'outputConstitutive')
+    call IO_write_jobFile(204,'outputConstitutive')
     PhaseLoop: do ph = 1,material_Nphase
-      if (any(material_phaseAt == ph)) write(FILEUNIT,'(/,a,/)') '['//trim(config_name_phase(ph))//']'
+      if (any(material_phaseAt == ph)) write(204,'(/,a,/)') '['//trim(config_name_phase(ph))//']'
     enddo PhaseLoop
-    close(FILEUNIT)
+    close(204)
   endif mainProcess
  
   constitutive_plasticity_maxSizeDotState = 0
   constitutive_source_maxSizeDotState = 0
-  constitutive_source_maxSizePostResults = 0
  
   PhaseLoop2:do ph = 1,material_Nphase
 !--------------------------------------------------------------------------------------------------
diff --git a/src/homogenization.f90 b/src/homogenization.f90
index c5250f9d2..5be988ec3 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -262,8 +262,7 @@ subroutine homogenization_init
   materialpoint_sizeResults = 1 &                                                                   ! grain count
                             + 1 + thermal_maxSizePostResults        &
                                 + damage_maxSizePostResults         &
-                            + homogenization_maxNgrains * (  1 &     ! crystallite size
-                                                           + 1 + constitutive_source_maxSizePostResults)
+                            + homogenization_maxNgrains * 2 ! obsolete header information
   allocate(materialpoint_results(materialpoint_sizeResults,discretization_nIP,discretization_nElem))
 
   write(6,'(/,a)')   ' <<<+-  homogenization init  -+>>>'