From ac0149e55e5a744cca7cf28e94e5a63b906ea0c6 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 21 Oct 2019 11:48:35 +0200 Subject: [PATCH] not needed (is initialized to 0) --- src/damage_none.f90 | 1 - src/homogenization_mech_RGC.f90 | 1 - src/homogenization_mech_isostrain.f90 | 1 - src/homogenization_mech_none.f90 | 1 - src/plastic_none.f90 | 2 -- src/thermal_isothermal.f90 | 1 - 6 files changed, 7 deletions(-) diff --git a/src/damage_none.f90 b/src/damage_none.f90 index 5ffdba030..62d2cc0eb 100644 --- a/src/damage_none.f90 +++ b/src/damage_none.f90 @@ -30,7 +30,6 @@ subroutine damage_none_init myhomog: if (damage_type(homog) == DAMAGE_NONE_ID) then NofMyHomog = count(material_homogenizationAt == homog) damageState(homog)%sizeState = 0 - damageState(homog)%sizePostResults = 0 allocate(damageState(homog)%state0 (0,NofMyHomog)) allocate(damageState(homog)%subState0(0,NofMyHomog)) allocate(damageState(homog)%state (0,NofMyHomog)) diff --git a/src/homogenization_mech_RGC.f90 b/src/homogenization_mech_RGC.f90 index 0ae0f4c18..61a1997cd 100644 --- a/src/homogenization_mech_RGC.f90 +++ b/src/homogenization_mech_RGC.f90 @@ -160,7 +160,6 @@ module subroutine mech_RGC_init + size(['avg constitutive work ','average penalty energy']) homogState(h)%sizeState = sizeState - homogState(h)%sizePostResults = 0 allocate(homogState(h)%state0 (sizeState,NofMyHomog), source=0.0_pReal) allocate(homogState(h)%subState0(sizeState,NofMyHomog), source=0.0_pReal) allocate(homogState(h)%state (sizeState,NofMyHomog), source=0.0_pReal) diff --git a/src/homogenization_mech_isostrain.f90 b/src/homogenization_mech_isostrain.f90 index c1eba821c..cdc078925 100644 --- a/src/homogenization_mech_isostrain.f90 +++ b/src/homogenization_mech_isostrain.f90 @@ -63,7 +63,6 @@ module subroutine mech_isostrain_init NofMyHomog = count(material_homogenizationAt == h) homogState(h)%sizeState = 0 - homogState(h)%sizePostResults = 0 allocate(homogState(h)%state0 (0,NofMyHomog)) allocate(homogState(h)%subState0(0,NofMyHomog)) allocate(homogState(h)%state (0,NofMyHomog)) diff --git a/src/homogenization_mech_none.f90 b/src/homogenization_mech_none.f90 index d5b24e5d1..3e7998d88 100644 --- a/src/homogenization_mech_none.f90 +++ b/src/homogenization_mech_none.f90 @@ -29,7 +29,6 @@ module subroutine mech_none_init NofMyHomog = count(material_homogenizationAt == h) homogState(h)%sizeState = 0 - homogState(h)%sizePostResults = 0 allocate(homogState(h)%state0 (0,NofMyHomog)) allocate(homogState(h)%subState0(0,NofMyHomog)) allocate(homogState(h)%state (0,NofMyHomog)) diff --git a/src/plastic_none.f90 b/src/plastic_none.f90 index fa913df4c..a4979bb2c 100644 --- a/src/plastic_none.f90 +++ b/src/plastic_none.f90 @@ -40,8 +40,6 @@ subroutine plastic_none_init NipcMyPhase = count(material_phaseAt == p) * discretization_nIP call material_allocatePlasticState(p,NipcMyPhase,0,0,0, & 0,0,0) - plasticState(p)%sizePostResults = 0 - enddo end subroutine plastic_none_init diff --git a/src/thermal_isothermal.f90 b/src/thermal_isothermal.f90 index 0271813e2..f06239944 100644 --- a/src/thermal_isothermal.f90 +++ b/src/thermal_isothermal.f90 @@ -31,7 +31,6 @@ subroutine thermal_isothermal_init if (thermal_type(homog) /= THERMAL_isothermal_ID) cycle NofMyHomog = count(material_homogenizationAt == homog) thermalState(homog)%sizeState = 0 - thermalState(homog)%sizePostResults = 0 allocate(thermalState(homog)%state0 (0,NofMyHomog), source=0.0_pReal) allocate(thermalState(homog)%subState0(0,NofMyHomog), source=0.0_pReal) allocate(thermalState(homog)%state (0,NofMyHomog), source=0.0_pReal)