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

removed some unused variables

This commit is contained in:
Pratheek Shanthraj 2014-08-08 13:54:08 +00:00
parent f55dc4b639
commit da5f3d8f85
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/crystallite.f90
View File

@ -595,20 +595,14 @@ subroutine crystallite_stressAndItsTangent(updateJaco)
logical, dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: & logical, dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: &
convergenceFlag_backup convergenceFlag_backup
! local variables used for calculating analytic Jacobian ! local variables used for calculating analytic Jacobian
real(pReal), dimension(3,3):: Fpinv_rate, & real(pReal), dimension(3,3):: junk
FDot_inv, &
junk
real(pReal), dimension(3,3,3,3) :: dSdFe, & real(pReal), dimension(3,3,3,3) :: dSdFe, &
dFedF, & dFedF, &
dFedFdot, &
dSdF, & dSdF, &
dSdFdot, &
dFp_invdFdot, &
junk2, & junk2, &
dLpdS,dFpinvdF,rhs_3333,lhs_3333,temp_3333 dLpdS,dFpinvdF,rhs_3333,lhs_3333,temp_3333
real(pReal), dimension(9,9):: temp_99 real(pReal), dimension(9,9):: temp_99
logical :: error logical :: error
real(pReal) :: counter
if (iand(debug_level(debug_crystallite),debug_levelSelective) /= 0_pInt & if (iand(debug_level(debug_crystallite),debug_levelSelective) /= 0_pInt &