From 6ace12be0ca7a755fa265e6b0c45fccde8271a38 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Mon, 22 Sep 2014 20:34:42 +0000 Subject: [PATCH] removed unused variables --- code/CPFEM.f90 | 4 ++-- code/constitutive_dislokmc.f90 | 2 +- code/constitutive_dislotwin.f90 | 6 +----- code/constitutive_phenopowerlaw.f90 | 2 +- code/crystallite.f90 | 3 +-- code/homogenization_isostrain.f90 | 2 +- code/lattice.f90 | 2 +- 7 files changed, 8 insertions(+), 13 deletions(-) diff --git a/code/CPFEM.f90 b/code/CPFEM.f90 index 19c2b2159..966f5a866 100644 --- a/code/CPFEM.f90 +++ b/code/CPFEM.f90 @@ -161,7 +161,7 @@ subroutine CPFEM_init crystallite_localPlasticity implicit none - integer(pInt) :: i,j,k,l,m,ph,homog + integer(pInt) :: k,l,m,ph,homog write(6,'(/,a)') ' <<<+- CPFEM init -+>>>' write(6,'(a)') ' $Id$' @@ -362,7 +362,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, temperature, dt, elFE, ip) #endif integer(pInt) elCP, & ! crystal plasticity element number - i, j, k, l, m, n, ph, homog + i, k, l, m, ph, homog logical updateJaco ! flag indicating if JAcobian has to be updated #if defined(Marc4DAMASK) || defined(Abaqus) diff --git a/code/constitutive_dislokmc.f90 b/code/constitutive_dislokmc.f90 index 220758616..03fbc3926 100644 --- a/code/constitutive_dislokmc.f90 +++ b/code/constitutive_dislokmc.f90 @@ -1720,7 +1720,7 @@ function constitutive_dislokmc_postResults(Tstar_v,Temperature,ipc,ip,el) constitutive_dislokmc_postResults integer(pInt) :: & - instance,phase,& + instance,& ns,nt,& f,o,i,c,j,index_myFamily,& s1,s2, & diff --git a/code/constitutive_dislotwin.f90 b/code/constitutive_dislotwin.f90 index 5df438b36..202b27ad3 100644 --- a/code/constitutive_dislotwin.f90 +++ b/code/constitutive_dislotwin.f90 @@ -1331,8 +1331,6 @@ subroutine constitutive_dislotwin_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperat gdot_slip,dgdot_dtauslip,tau_slip real(pReal), dimension(constitutive_dislotwin_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & gdot_twin,dgdot_dtautwin,tau_twin - real(pReal), dimension(constitutive_dislotwin_totalNtrans(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & - nIdot_trans,dnIdot_dtautrans,tau_trans,f_trans,nI_trans real(pReal), dimension(6) :: gdot_sb,dgdot_dtausb,tau_sb real(pReal), dimension(3,3) :: eigVectors, sb_Smatrix real(pReal), dimension(3) :: eigValues, sb_s, sb_m @@ -1596,8 +1594,6 @@ subroutine constitutive_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el) ClimbVelocity,DotRhoEdgeDipClimb,DotRhoDipFormation real(pReal), dimension(constitutive_dislotwin_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & tau_twin - real(pReal), dimension(constitutive_dislotwin_totalNtrans(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & - tau_trans, f_trans, nI_trans !* Shortened notation @@ -1800,7 +1796,7 @@ function constitutive_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el) real(pReal), dimension(constitutive_dislotwin_sizePostResults(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & constitutive_dislotwin_postResults integer(pInt) :: & - instance,phase,& + instance,& ns,nt,nr,& f,o,i,c,j,index_myFamily,& s1,s2, & diff --git a/code/constitutive_phenopowerlaw.f90 b/code/constitutive_phenopowerlaw.f90 index d8c3f93d8..0894c0c50 100644 --- a/code/constitutive_phenopowerlaw.f90 +++ b/code/constitutive_phenopowerlaw.f90 @@ -704,7 +704,7 @@ subroutine constitutive_phenopowerlaw_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,ip integer(pInt) :: & instance, & nSlip, & - nTwin,phase,index_Gamma,index_F,index_myFamily, & + nTwin,index_Gamma,index_F,index_myFamily, & f,i,j,k,l,m,n, & of, & ph diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 8fbc886b0..df623ece7 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -2931,8 +2931,7 @@ subroutine crystallite_integrateStateFPI() c, & mySizePlasticDotState, & ! size of dot states mySizeDamageDotState, & - mySizeThermalDotState, & - ss + mySizeThermalDotState integer(pInt), dimension(2) :: & eIter ! bounds for element iteration integer(pInt), dimension(2,mesh_NcpElems) :: & diff --git a/code/homogenization_isostrain.f90 b/code/homogenization_isostrain.f90 index d663dba7f..02853a5d6 100644 --- a/code/homogenization_isostrain.f90 +++ b/code/homogenization_isostrain.f90 @@ -67,7 +67,7 @@ subroutine homogenization_isostrain_init(fileUnit) integer(pInt), parameter :: MAXNCHUNKS = 2_pInt integer(pInt), dimension(1_pInt+2_pInt*MAXNCHUNKS) :: positions integer(pInt) :: & - section = 0_pInt, i, j, output, mySize, o + section = 0_pInt, i, output, mySize, o integer :: & maxNinstance, & homog, & diff --git a/code/lattice.f90 b/code/lattice.f90 index 3d9b43239..f08443452 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -1499,7 +1499,7 @@ pure function lattice_symmetrize33(struct,T33) integer(kind(LATTICE_undefined_ID)), intent(in) :: struct real(pReal), dimension(3,3), intent(in) :: T33 real(pReal), dimension(3,3) :: lattice_symmetrize33 - integer(pInt) :: j,k + integer(pInt) :: k lattice_symmetrize33 = 0.0_pReal