unused variables

This commit is contained in:
Martin Diehl 2015-12-14 19:48:11 +00:00
parent 3a7f4bf43a
commit dc990a88d6
2 changed files with 2 additions and 5 deletions

View File

@ -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,&

View File

@ -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, &