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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
code/crystallite.f90
View File

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