corrected buggy previous commit

This commit is contained in:
Pratheek Shanthraj 2015-04-21 14:33:38 +00:00
parent bec17127d0
commit 0681f67570
1 changed files with 24 additions and 1 deletions

View File

@ -1535,6 +1535,9 @@ subroutine crystallite_integrateStateRK4()
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
debug_e, &
debug_i, &
debug_g, &
debug_StateLoopDistribution
use FEsolving, only: &
FEsolving_execElem, &
@ -1826,6 +1829,9 @@ subroutine crystallite_integrateStateRKCK45()
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
debug_e, &
debug_i, &
debug_g, &
debug_StateLoopDistribution
use numerics, only: &
rTol_crystalliteState, &
@ -2356,6 +2362,9 @@ subroutine crystallite_integrateStateAdaptiveEuler()
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
debug_e, &
debug_i, &
debug_g, &
debug_StateLoopDistribution
use numerics, only: &
rTol_crystalliteState, &
@ -2740,6 +2749,9 @@ subroutine crystallite_integrateStateEuler()
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
debug_e, &
debug_i, &
debug_g, &
debug_StateLoopDistribution
use numerics, only: &
numerics_integrationMode, &
@ -2958,6 +2970,9 @@ subroutine crystallite_integrateStateFPI()
use prec, only: &
prec_isNaN
use debug, only: &
debug_e, &
debug_i, &
debug_g, &
debug_level,&
debug_crystallite, &
debug_levelBasic, &
@ -3443,9 +3458,13 @@ end subroutine crystallite_integrateStateFPI
!--------------------------------------------------------------------------------------------------
logical function crystallite_stateJump(g,i,e)
use debug, only: &
debug_level, &
debug_crystallite, &
debug_levelExtensive, &
debug_levelSelective
debug_levelSelective, &
debug_e, &
debug_i, &
debug_g
use material, only: &
plasticState, &
mappingConstitutive
@ -3537,6 +3556,9 @@ logical function crystallite_integrateStress(&
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
debug_e, &
debug_i, &
debug_g, &
debug_cumLpCalls, &
debug_cumLpTicks, &
debug_StressLoopLpDistribution, &
@ -3563,6 +3585,7 @@ logical function crystallite_integrateStress(&
math_Plain33to9, &
math_Plain9to33, &
math_Plain99to3333
use mesh, only: mesh_element
implicit none
integer(pInt), intent(in):: e, & ! element index