From 8661d6e82fffe5cbf275b86d3ebc794936c90550 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 10 Mar 2019 09:40:20 +0100 Subject: [PATCH] PGI complaines, forall is deprecated anyway --- src/CPFEM2.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/CPFEM2.f90 b/src/CPFEM2.f90 index 678ff98cc..13d7f06c4 100644 --- a/src/CPFEM2.f90 +++ b/src/CPFEM2.f90 @@ -238,14 +238,14 @@ subroutine CPFEM_age() crystallite_Fi0 = crystallite_Fi crystallite_Li0 = crystallite_Li crystallite_S0 = crystallite_S - - forall (i = 1:size(plasticState)) plasticState(i)%state0 = plasticState(i)%state ! copy state in this lengthy way because: A component cannot be an array if the encompassing structure is an array - + + do i = 1, size(plasticState) + plasticState(i)%state0 = plasticState(i)%state + enddo 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 lengthy 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 - do homog = 1_pInt, material_Nhomogenization homogState (homog)%state0 = homogState (homog)%state thermalState (homog)%state0 = thermalState (homog)%state