223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

removed unused function arguments

This commit is contained in:
Pratheek Shanthraj 2014-10-13 17:52:33 +00:00
parent 5e16cdd14f
commit 45dffc704c
3 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
code/damage_brittle.f90
View File

@ -211,7 +211,7 @@ subroutine damage_brittle_init(fileUnit)
if (any(numerics_integrator == 5_pInt)) & if (any(numerics_integrator == 5_pInt)) &
allocate(damageState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal) 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) call damage_brittle_aTolState(phase,instance)
endif endif
@ -221,12 +221,11 @@ end subroutine damage_brittle_init
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief sets the relevant NEW state values for a given instance of this damage !> @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: & use material, only: &
damageState damageState
implicit none 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 integer(pInt), intent(in) :: phase !< number specifying the phase of the damage
real(pReal), dimension(damageState(phase)%sizeState) :: tempState real(pReal), dimension(damageState(phase)%sizeState) :: tempState

5
code/damage_ductile.f90
View File

@ -210,7 +210,7 @@ subroutine damage_ductile_init(fileUnit)
if (any(numerics_integrator == 5_pInt)) & if (any(numerics_integrator == 5_pInt)) &
allocate(damageState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal) 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) call damage_ductile_aTolState(phase,instance)
endif endif
@ -220,12 +220,11 @@ end subroutine damage_ductile_init
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief sets the relevant NEW state values for a given instance of this damage !> @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: & use material, only: &
damageState damageState
implicit none 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 integer(pInt), intent(in) :: phase !< number specifying the phase of the damage
real(pReal), dimension(damageState(phase)%sizeState) :: tempState real(pReal), dimension(damageState(phase)%sizeState) :: tempState

5
code/damage_gurson.f90
View File

@ -210,7 +210,7 @@ subroutine damage_gurson_init(fileUnit)
if (any(numerics_integrator == 5_pInt)) & if (any(numerics_integrator == 5_pInt)) &
allocate(damageState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal) 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) call damage_gurson_aTolState(phase,instance)
endif endif
@ -220,12 +220,11 @@ end subroutine damage_gurson_init
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief sets the relevant NEW state values for a given instance of this damage !> @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: & use material, only: &
damageState damageState
implicit none 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 integer(pInt), intent(in) :: phase !< number specifying the phase of the damage
real(pReal), dimension(damageState(phase)%sizeState) :: tempState real(pReal), dimension(damageState(phase)%sizeState) :: tempState