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

leftovers from perturbation calculation

This commit is contained in:
Martin Diehl 2016-10-21 15:11:14 +02:00
parent 633744bfa9
commit 54d98a2046
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/crystallite.f90
View File

@ -513,8 +513,6 @@ subroutine crystallite_stressAndItsTangent(updateJaco)
subStepMinCryst, & subStepMinCryst, &
subStepSizeCryst, & subStepSizeCryst, &
stepIncreaseCryst, & stepIncreaseCryst, &
pert_Fg, &
pert_method, &
nCryst, & nCryst, &
numerics_integrator, & numerics_integrator, &
numerics_integrationMode, & numerics_integrationMode, &
@ -574,7 +572,6 @@ subroutine crystallite_stressAndItsTangent(updateJaco)
logical, intent(in) :: & logical, intent(in) :: &
updateJaco !< whether to update the Jacobian (stiffness) or not updateJaco !< whether to update the Jacobian (stiffness) or not
real(pReal) :: & real(pReal) :: &
myPert, & ! perturbation with correct sign
formerSubStep, & formerSubStep, &
subFracIntermediate subFracIntermediate
real(pReal), dimension(3,3) :: & real(pReal), dimension(3,3) :: &
@ -586,14 +583,11 @@ subroutine crystallite_stressAndItsTangent(updateJaco)
c, & !< counter in integration point component loop c, & !< counter in integration point component loop
i, & !< counter in integration point loop i, & !< counter in integration point loop
e, & !< counter in element loop e, & !< counter in element loop
k, &
l, &
n, startIP, endIP, & n, startIP, endIP, &
neighboring_e, & neighboring_e, &
neighboring_i, & neighboring_i, &
o, & o, &
p, & p, &
perturbation , & ! loop counter for forward,backward perturbation mode
myNcomponents, & myNcomponents, &
mySource mySource
! local variables used for calculating analytic Jacobian ! local variables used for calculating analytic Jacobian