From fec71e2986b79b322ab9e6780c318e1fe636f16d Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Thu, 16 Oct 2014 08:15:57 +0000 Subject: [PATCH] missing variable definitions --- code/constitutive.f90 | 4 ++-- code/damage_anisotropic.f90 | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 205a91119..81e738f69 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -969,7 +969,7 @@ function constitutive_getLocalDamage(ipc, ip, el) constitutive_getLocalDamage = constitutive_gurson_getDamage(ipc, ip, el) case (LOCAL_DAMAGE_anisotropic_ID) - constitutive_getLocalDamage = constitutive_anisotropic_getDamage(ipc, ip, el) + !constitutive_getLocalDamage = constitutive_anisotropic_getDamage(ipc, ip, el) end select end function constitutive_getLocalDamage @@ -1015,7 +1015,7 @@ subroutine constitutive_putLocalDamage(ipc, ip, el, localDamage) call constitutive_gurson_putDamage(ipc, ip, el, localDamage) case (LOCAL_DAMAGE_anisotropic_ID) - call constitutive_anisotropic_putDamage(ipc, ip, el, localDamage) + !call constitutive_anisotropic_putDamage(ipc, ip, el, localDamage) end select diff --git a/code/damage_anisotropic.f90 b/code/damage_anisotropic.f90 index d49d837c0..2f189424a 100644 --- a/code/damage_anisotropic.f90 +++ b/code/damage_anisotropic.f90 @@ -109,6 +109,7 @@ subroutine damage_anisotropic_init(fileUnit) integer(pInt) :: maxNinstance,mySize=0_pInt,phase,instance,o integer(pInt) :: sizeState, sizeDotState integer(pInt) :: NofMyPhase + integer(pInt) :: Nchunks_SlipFamilies, j character(len=65536) :: & tag = '', & line = ''