From c2e91ae5e1381ebaf1bfec5f65b5220eb7fb85b5 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 8 Dec 2019 20:52:05 +0100
Subject: [PATCH] copy and paste error, wrong array was set

---
 src/CPFEM2.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/CPFEM2.f90 b/src/CPFEM2.f90
index 4575b9caa..9edb61d33 100644
--- a/src/CPFEM2.f90
+++ b/src/CPFEM2.f90
@@ -98,14 +98,14 @@ subroutine CPFEM_init
     groupHandle = HDF5_openGroup(fileHandle,'constituent')
     do i = 1,size(phase_plasticity)
       write(datasetName,'(i0,a)') i,'_omega_plastic'
-      call HDF5_read(groupHandle,plasticState(i)%state,datasetName)
+      call HDF5_read(groupHandle,plasticState(i)%state0,datasetName)
     enddo
     call HDF5_closeGroup(groupHandle)
 
     groupHandle = HDF5_openGroup(fileHandle,'materialpoint')
     do i = 1, material_Nhomogenization
       write(datasetName,'(i0,a)') i,'_omega_homogenization'
-      call HDF5_read(groupHandle,homogState(i)%state,datasetName)
+      call HDF5_read(groupHandle,homogState(i)%state0,datasetName)
     enddo
     call HDF5_closeGroup(groupHandle)