can be done in the same loop
This commit is contained in:
parent
bbce3456e8
commit
e7d61e49fe
|
@ -1054,13 +1054,15 @@ subroutine integrateStateFPI
|
||||||
NiterationState > 1)
|
NiterationState > 1)
|
||||||
sourceState(p)%p(s)%previousDotState (:,c) = sourceState(p)%p(s)%dotState(:,c)
|
sourceState(p)%p(s)%previousDotState (:,c) = sourceState(p)%p(s)%dotState(:,c)
|
||||||
enddo
|
enddo
|
||||||
|
call constitutive_dependentState(crystallite_Fe(1:3,1:3,g,i,e), &
|
||||||
|
crystallite_Fp(1:3,1:3,g,i,e), &
|
||||||
|
g, i, e)
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
!$OMP END PARALLEL DO
|
!$OMP END PARALLEL DO
|
||||||
|
|
||||||
call update_dependentState
|
|
||||||
call update_stress(1.0_pReal)
|
call update_stress(1.0_pReal)
|
||||||
call update_dotState(1.0_pReal)
|
call update_dotState(1.0_pReal)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue