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

sorry, forgot to declare all variables, promise to be more careful to always commit a running version of the subroutine ;-)

This commit is contained in:
Christoph Kords 2009-06-02 09:55:45 +00:00
parent e5311476c0
commit 7b638d7b94
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
trunk/crystallite.f90
View File

@ -501,14 +501,18 @@ endsubroutine
i,& ! integration point number i,& ! integration point number
e & ! element number e & ! element number
) )
!*** variables and functions from other modules ***!
use prec, only: pReal, & use prec, only: pReal, &
pInt, & pInt, &
pLongInt, &
rTol_crystalliteState rTol_crystalliteState
use constitutive, only: constitutive_dotState, & use constitutive, only: constitutive_dotState, &
constitutive_sizeDotState, & constitutive_sizeDotState, &
constitutive_subState0, & constitutive_subState0, &
constitutive_state constitutive_state
use debug use debug, only: debug_cumDotStateCalls, &
debug_cumDotStateTicks
logical crystallite_updateState logical crystallite_updateState
@ -551,6 +555,7 @@ endsubroutine
!*** variables and functions from other modules ***! !*** variables and functions from other modules ***!
use prec, only: pReal, & use prec, only: pReal, &
pInt, & pInt, &
pLongInt, &
nStress, & nStress, &
aTol_crystalliteStress, & aTol_crystalliteStress, &
rTol_crystalliteStress, & rTol_crystalliteStress, &
@ -567,9 +572,12 @@ endsubroutine
math_mul99x99, & math_mul99x99, &
math_inv3x3, & math_inv3x3, &
math_invert3x3, & math_invert3x3, &
math_invert, &
math_det3x3, &
math_i3, & math_i3, &
math_identity2nd, & math_identity2nd, &
math_Mandel66to3333, & math_Mandel66to3333, &
math_Mandel6to33, &
math_mandel33to6 math_mandel33to6
implicit none implicit none