From 60a19c020db55cfb0a1c1040c017c607f5a1968f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 23 Oct 2019 21:17:56 +0200 Subject: [PATCH] cleaning --- src/CPFEM.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/CPFEM.f90 b/src/CPFEM.f90 index 32098b109..e549df30d 100644 --- a/src/CPFEM.f90 +++ b/src/CPFEM.f90 @@ -178,19 +178,19 @@ subroutine CPFEM_general(mode, parallelExecution, ffn, ffn1, temperature_inp, dt if (iand(mode, CPFEM_RESTOREJACOBIAN) /= 0_pInt) & CPFEM_dcsde = CPFEM_dcsde_knownGood - !*** age results and write restart data if requested + !*** age results if (iand(mode, CPFEM_AGERESULTS) /= 0_pInt) then - crystallite_F0 = crystallite_partionedF ! crystallite deformation (_subF is perturbed...) + crystallite_F0 = crystallite_partionedF ! crystallite deformation crystallite_Fp0 = crystallite_Fp ! crystallite plastic deformation crystallite_Lp0 = crystallite_Lp ! crystallite plastic velocity crystallite_Fi0 = crystallite_Fi ! crystallite intermediate deformation crystallite_Li0 = crystallite_Li ! crystallite intermediate velocity crystallite_S0 = crystallite_S ! crystallite 2nd Piola Kirchhoff stress - forall ( i = 1:size(plasticState )) plasticState(i)%state0 = plasticState(i)%state ! copy state in this lenghty way because: A component cannot be an array if the encompassing structure is an array + forall (i = 1:size(plasticState)) plasticState(i)%state0 = plasticState(i)%state do i = 1, size(sourceState) do mySource = 1,phase_Nsources(i) - sourceState(i)%p(mySource)%state0 = sourceState(i)%p(mySource)%state ! copy state in this lenghty way because: A component cannot be an array if the encompassing structure is an array + sourceState(i)%p(mySource)%state0 = sourceState(i)%p(mySource)%state enddo; enddo if (iand(debug_level(debug_CPFEM), debug_levelBasic) /= 0_pInt) then write(6,'(a)') '<< CPFEM >> aging states'