From 45dffc704c2c97e7e849aceb3c38dd215e424bff Mon Sep 17 00:00:00 2001
From: Pratheek Shanthraj
Date: Mon, 13 Oct 2014 17:52:33 +0000
Subject: [PATCH] removed unused function arguments
---
code/damage_brittle.f90 | 5 ++---
code/damage_ductile.f90 | 5 ++---
code/damage_gurson.f90 | 5 ++---
3 files changed, 6 insertions(+), 9 deletions(-)
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