223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

removed unused variables

This commit is contained in:
Pratheek Shanthraj 2014-09-22 20:34:42 +00:00
parent a9535a6ae9
commit 6ace12be0c
7 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/CPFEM.f90
View File

@ -161,7 +161,7 @@ subroutine CPFEM_init
crystallite_localPlasticity crystallite_localPlasticity
implicit none 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)') ' <<<+- CPFEM init -+>>>'
write(6,'(a)') ' $Id$' write(6,'(a)') ' $Id$'
@ -362,7 +362,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, temperature, dt, elFE, ip)
#endif #endif
integer(pInt) elCP, & ! crystal plasticity element number 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 logical updateJaco ! flag indicating if JAcobian has to be updated
#if defined(Marc4DAMASK) || defined(Abaqus) #if defined(Marc4DAMASK) || defined(Abaqus)

2
code/constitutive_dislokmc.f90
View File

@ -1720,7 +1720,7 @@ function constitutive_dislokmc_postResults(Tstar_v,Temperature,ipc,ip,el)
constitutive_dislokmc_postResults constitutive_dislokmc_postResults
integer(pInt) :: & integer(pInt) :: &
instance,phase,& instance,&
ns,nt,& ns,nt,&
f,o,i,c,j,index_myFamily,& f,o,i,c,j,index_myFamily,&
s1,s2, & s1,s2, &

6
code/constitutive_dislotwin.f90
View File

@ -1331,8 +1331,6 @@ subroutine constitutive_dislotwin_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperat
gdot_slip,dgdot_dtauslip,tau_slip gdot_slip,dgdot_dtauslip,tau_slip
real(pReal), dimension(constitutive_dislotwin_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & real(pReal), dimension(constitutive_dislotwin_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
gdot_twin,dgdot_dtautwin,tau_twin 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(6) :: gdot_sb,dgdot_dtausb,tau_sb
real(pReal), dimension(3,3) :: eigVectors, sb_Smatrix real(pReal), dimension(3,3) :: eigVectors, sb_Smatrix
real(pReal), dimension(3) :: eigValues, sb_s, sb_m 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 ClimbVelocity,DotRhoEdgeDipClimb,DotRhoDipFormation
real(pReal), dimension(constitutive_dislotwin_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & real(pReal), dimension(constitutive_dislotwin_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
tau_twin tau_twin
real(pReal), dimension(constitutive_dislotwin_totalNtrans(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
tau_trans, f_trans, nI_trans
!* Shortened notation !* 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)))) :: & real(pReal), dimension(constitutive_dislotwin_sizePostResults(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
constitutive_dislotwin_postResults constitutive_dislotwin_postResults
integer(pInt) :: & integer(pInt) :: &
instance,phase,& instance,&
ns,nt,nr,& ns,nt,nr,&
f,o,i,c,j,index_myFamily,& f,o,i,c,j,index_myFamily,&
s1,s2, & s1,s2, &

2
code/constitutive_phenopowerlaw.f90
View File

@ -704,7 +704,7 @@ subroutine constitutive_phenopowerlaw_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,ip
integer(pInt) :: & integer(pInt) :: &
instance, & instance, &
nSlip, & nSlip, &
nTwin,phase,index_Gamma,index_F,index_myFamily, & nTwin,index_Gamma,index_F,index_myFamily, &
f,i,j,k,l,m,n, & f,i,j,k,l,m,n, &
of, & of, &
ph ph

3
code/crystallite.f90
View File

@ -2931,8 +2931,7 @@ subroutine crystallite_integrateStateFPI()
c, & c, &
mySizePlasticDotState, & ! size of dot states mySizePlasticDotState, & ! size of dot states
mySizeDamageDotState, & mySizeDamageDotState, &
mySizeThermalDotState, & mySizeThermalDotState
ss
integer(pInt), dimension(2) :: & integer(pInt), dimension(2) :: &
eIter ! bounds for element iteration eIter ! bounds for element iteration
integer(pInt), dimension(2,mesh_NcpElems) :: & integer(pInt), dimension(2,mesh_NcpElems) :: &

2
code/homogenization_isostrain.f90
View File

@ -67,7 +67,7 @@ subroutine homogenization_isostrain_init(fileUnit)
integer(pInt), parameter :: MAXNCHUNKS = 2_pInt integer(pInt), parameter :: MAXNCHUNKS = 2_pInt
integer(pInt), dimension(1_pInt+2_pInt*MAXNCHUNKS) :: positions integer(pInt), dimension(1_pInt+2_pInt*MAXNCHUNKS) :: positions
integer(pInt) :: & integer(pInt) :: &
section = 0_pInt, i, j, output, mySize, o section = 0_pInt, i, output, mySize, o
integer :: & integer :: &
maxNinstance, & maxNinstance, &
homog, & homog, &

2
code/lattice.f90
View File

@ -1499,7 +1499,7 @@ pure function lattice_symmetrize33(struct,T33)
integer(kind(LATTICE_undefined_ID)), intent(in) :: struct integer(kind(LATTICE_undefined_ID)), intent(in) :: struct
real(pReal), dimension(3,3), intent(in) :: T33 real(pReal), dimension(3,3), intent(in) :: T33
real(pReal), dimension(3,3) :: lattice_symmetrize33 real(pReal), dimension(3,3) :: lattice_symmetrize33
integer(pInt) :: j,k integer(pInt) :: k
lattice_symmetrize33 = 0.0_pReal lattice_symmetrize33 = 0.0_pReal