diff --git a/code/crystallite.f90 b/code/crystallite.f90 index dfb22c4db..4a9f4ca95 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -3953,7 +3953,7 @@ function crystallite_postResults(ipc, ip, el) crystallite_postResults #else real(pReal), dimension(1+crystallite_sizePostResults(microstructure_crystallite(mesh_element(4,el)))+ & - 1+plasticState(material_phase(ipc,ip,el))%sizePostResults) :: + 1+plasticState(material_phase(ipc,ip,el))%sizePostResults) :: & crystallite_postResults #endif real(pReal), dimension(3,3) :: &