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:
Franz Roters 2011-09-26 09:55:38 +00:00
parent 58917b5abe
commit 8edb59d50c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/math.f90
View File

@ -2187,7 +2187,7 @@ end subroutine
real(pReal), intent(in) :: M(3,3) real(pReal), intent(in) :: M(3,3)
real(pReal), dimension(3,3) :: EB1(3,3),EB2(3,3),EB3(3,3) real(pReal), dimension(3,3) :: EB1(3,3),EB2(3,3),EB3(3,3)
real(pReal), dimension(3) :: math_eigenvalues3x3 real(pReal), dimension(3) :: math_eigenvalues3x3
real(pReal) HI1M,HI2M,HI3M,TOL,R,S,T,P,Q,RHO,PHI,Y1,Y2,Y3,arg,EW1,EW2,EW3 real(pReal) HI1M,HI2M,HI3M,TOL,R,S,T,P,Q,RHO,PHI,Y1,Y2,Y3,arg
TOL=1.e-14_pReal TOL=1.e-14_pReal
CALL math_hi(M,HI1M,HI2M,HI3M) CALL math_hi(M,HI1M,HI2M,HI3M)
R=-HI1M R=-HI1M