diff --git a/code/damage_brittle.f90 b/code/damage_brittle.f90 index da64b1f12..ebf62bfe3 100644 --- a/code/damage_brittle.f90 +++ b/code/damage_brittle.f90 @@ -211,7 +211,7 @@ subroutine damage_brittle_init(fileUnit) if (any(numerics_integrator == 5_pInt)) & allocate(damageState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal) - call damage_brittle_stateInit(phase,instance) + call damage_brittle_stateInit(phase) call damage_brittle_aTolState(phase,instance) endif @@ -221,12 +221,11 @@ end subroutine damage_brittle_init !-------------------------------------------------------------------------------------------------- !> @brief sets the relevant NEW state values for a given instance of this damage !-------------------------------------------------------------------------------------------------- -subroutine damage_brittle_stateInit(phase,instance) +subroutine damage_brittle_stateInit(phase) use material, only: & damageState implicit none - integer(pInt), intent(in) :: instance !< number specifying the instance of the damage integer(pInt), intent(in) :: phase !< number specifying the phase of the damage real(pReal), dimension(damageState(phase)%sizeState) :: tempState diff --git a/code/damage_ductile.f90 b/code/damage_ductile.f90 index ece3bd64e..e8459cb46 100755 --- a/code/damage_ductile.f90 +++ b/code/damage_ductile.f90 @@ -210,7 +210,7 @@ subroutine damage_ductile_init(fileUnit) if (any(numerics_integrator == 5_pInt)) & allocate(damageState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal) - call damage_ductile_stateInit(phase,instance) + call damage_ductile_stateInit(phase) call damage_ductile_aTolState(phase,instance) endif @@ -220,12 +220,11 @@ end subroutine damage_ductile_init !-------------------------------------------------------------------------------------------------- !> @brief sets the relevant NEW state values for a given instance of this damage !-------------------------------------------------------------------------------------------------- -subroutine damage_ductile_stateInit(phase,instance) +subroutine damage_ductile_stateInit(phase) use material, only: & damageState implicit none - integer(pInt), intent(in) :: instance !< number specifying the instance of the damage integer(pInt), intent(in) :: phase !< number specifying the phase of the damage real(pReal), dimension(damageState(phase)%sizeState) :: tempState diff --git a/code/damage_gurson.f90 b/code/damage_gurson.f90 index 93d12c1c5..be0774a5b 100755 --- a/code/damage_gurson.f90 +++ b/code/damage_gurson.f90 @@ -210,7 +210,7 @@ subroutine damage_gurson_init(fileUnit) if (any(numerics_integrator == 5_pInt)) & allocate(damageState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal) - call damage_gurson_stateInit(phase,instance) + call damage_gurson_stateInit(phase) call damage_gurson_aTolState(phase,instance) endif @@ -220,12 +220,11 @@ end subroutine damage_gurson_init !-------------------------------------------------------------------------------------------------- !> @brief sets the relevant NEW state values for a given instance of this damage !-------------------------------------------------------------------------------------------------- -subroutine damage_gurson_stateInit(phase,instance) +subroutine damage_gurson_stateInit(phase) use material, only: & damageState implicit none - integer(pInt), intent(in) :: instance !< number specifying the instance of the damage integer(pInt), intent(in) :: phase !< number specifying the phase of the damage real(pReal), dimension(damageState(phase)%sizeState) :: tempState