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