From 0c7e7c66f8bf1ee88db317be44eb4c63ad7c0c9d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 13 Apr 2015 10:36:45 +0000 Subject: [PATCH] integer type was use for void fraction, should be real --- code/damage_gurson.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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