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 = ''