Merge branch 'FPI-one-loop' into RKCK45-one-loop

This commit is contained in:
Martin Diehl 2020-03-25 18:56:51 +01:00
commit 9900bf0be7
1 changed files with 2 additions and 2 deletions

View File

@ -1048,7 +1048,7 @@ subroutine integrateStateFPI
sourceState(p)%p(s)%previousDotState (:,c) = sourceState(p)%p(s)%dotState(:,c)
enddo
call constitutive_dependentState(crystallite_Fe(1:3,1:3,g,i,e), &
call constitutive_dependentState(crystallite_partionedF(1:3,1:3,g,i,e), &
crystallite_Fp(1:3,1:3,g,i,e), &
g, i, e)
@ -1683,7 +1683,7 @@ subroutine update_dependentState
do i = FEsolving_execIP(1),FEsolving_execIP(2)
do g = 1,homogenization_Ngrains(material_homogenizationAt(e))
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) &
call constitutive_dependentState(crystallite_Fe(1:3,1:3,g,i,e), &
call constitutive_dependentState(crystallite_partionedF(1:3,1:3,g,i,e), &
crystallite_Fp(1:3,1:3,g,i,e), &
g, i, e)
enddo; enddo; enddo