integer type was use for void fraction, should be real

2015-04-13 10:36:45 +00:00 · 2015-04-13 10:36:45 +00:00 · 0c7e7c66f8
parent 5c1804e77d
commit 0c7e7c66f8
1 changed files with 1 additions and 1 deletions
--- 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