diff --git a/code/damage_gurson.f90 b/code/damage_gurson.f90 index 27bdb14e8..e9ff5256a 100644 --- a/code/damage_gurson.f90 +++ b/code/damage_gurson.f90 @@ -355,7 +355,7 @@ subroutine damage_gurson_microstructure(ipc, ip, el) ipc, & !< component-ID of integration point ip, & !< integration point el !< element - integer(pReal) :: & + real(pReal) :: & voidFraction integer(pInt) :: & phase, constituent