some fixes to get ductile damage working with recent changes

This commit is contained in:
Pratheek Shanthraj 2014-09-26 15:23:10 +00:00
parent 5c3f4e3e69
commit d4076e4db9
2 changed files with 2 additions and 1 deletions

View File

@ -256,6 +256,7 @@ subroutine constitutive_init
thisSize => damage_brittle_sizePostResult
case (LOCAL_DAMAGE_DUCTILE_ID)
outputName = LOCAL_DAMAGE_DUCTILE_label
thisNoutput => damage_ductile_Noutput
thisOutput => damage_ductile_output
thisSize => damage_ductile_sizePostResult
case default

View File

@ -24,7 +24,7 @@ module damage_ductile
character(len=64), dimension(:,:), allocatable, target, public :: &
damage_ductile_output !< name of each post result output
integer(pInt), dimension(:), allocatable, private :: &
integer(pInt), dimension(:), allocatable, target, public :: &
damage_ductile_Noutput !< number of outputs per instance of this damage
real(pReal), dimension(:), allocatable, private :: &