From dc990a88d64639dd0c4091c31da48f4350026ebb Mon Sep 17 00:00:00 2001
From: Martin	Diehl <m.diehl@mpie.de>
Date: Mon, 14 Dec 2015 19:48:11 +0000
Subject: [PATCH] unused variables

---
 code/plastic_dislotwin.f90 | 2 +-
 code/plastic_phenoplus.f90 | 5 +----
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/code/plastic_dislotwin.f90 b/code/plastic_dislotwin.f90
index ade8f9e83..fd6a281be 100644
--- a/code/plastic_dislotwin.f90
+++ b/code/plastic_dislotwin.f90
@@ -2026,7 +2026,7 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
    ip, &                                                                                            !< integration point
    el                                                                                               !< element
 
- integer(pInt) :: instance,ns,nt,nr,f,i,j,index_myFamily,s1,s2,a,b,sa,sb,ssa,ssb, &
+ integer(pInt) :: instance,ns,nt,nr,f,i,j,index_myFamily,s1,s2, &
                   ph, &
                   of
  real(pReal) :: sumf,sumftr,StressRatio_p,StressRatio_pminus1,BoltzmannRatio,DotGamma0,&
diff --git a/code/plastic_phenoplus.f90 b/code/plastic_phenoplus.f90
index 7e3f003e7..b183cb24b 100644
--- a/code/plastic_phenoplus.f90
+++ b/code/plastic_phenoplus.f90
@@ -788,7 +788,6 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el)
                       vld_Nneighbors, &             !number of my valid neighbors
                       n, &                          !neighbor index (for iterating through all neighbors)
                       ns, &                         !number of slip system
-                      nns, &                        !number of slip in my neighbors
                       nt, &                         !number of twin system
                       me_slip, &                    !my slip system index
                       neighbor_el, &                !element number of neighboring material point
@@ -802,14 +801,12 @@ subroutine plastic_phenoplus_microstructure(orientation,ipc,ip,el)
                       j                             !quickly loop through slip families
 
  real(pReal)          kappa_max, &                  !
-                      weight_sum, &                 !temp storage for the denominator in weighting function
                       mprimeavg
 
 
  real(pReal), dimension(plastic_phenoplus_totalNslip(phase_plasticityInstance(material_phase(1,ip,el)))) :: &
                       m_primes, &                   !m' between me_alpha(one) and neighbor beta(all)
-                      me_acshear, &                 !temp storage for ac_shear of one particular system for me
-                      ne_acshear                    !temp storage for ac_shear of one particular system for one of my neighbor
+                      me_acshear                    !temp storage for ac_shear of one particular system for me
 
  real(pReal), dimension(3,plastic_phenoplus_totalNslip(phase_plasticityInstance(material_phase(1,ip,el)))) :: &
                                                 slipNormal, &