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

typo, IO_warning and not IO_error

This commit is contained in:
Luv Sharma 2014-11-26 10:16:30 +00:00
parent 9714a172d1
commit 646f1c48dc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
code/lattice.f90
View File

@ -1292,7 +1292,8 @@ subroutine lattice_initializeStructure(myPhase,CoverA,aA,aM,cM)
math_axisAngleToR, & math_axisAngleToR, &
INRAD INRAD
use IO, only: & use IO, only: &
IO_error IO_error, &
IO_warning
implicit none implicit none
integer(pInt), intent(in) :: myPhase integer(pInt), intent(in) :: myPhase
@ -1339,7 +1340,7 @@ subroutine lattice_initializeStructure(myPhase,CoverA,aA,aM,cM)
lattice_C3333(1:3,1:3,1:3,1:3,myPhase) = math_Voigt66to3333(lattice_C66(1:6,1:6,myPhase)) ! Literature data is Voigt lattice_C3333(1:3,1:3,1:3,1:3,myPhase) = math_Voigt66to3333(lattice_C66(1:6,1:6,myPhase)) ! Literature data is Voigt
lattice_C66(1:6,1:6,myPhase) = math_Mandel3333to66(lattice_C3333(1:3,1:3,1:3,1:3,myPhase)) ! DAMASK uses Mandel lattice_C66(1:6,1:6,myPhase) = math_Mandel3333to66(lattice_C3333(1:3,1:3,1:3,1:3,myPhase)) ! DAMASK uses Mandel
do i = 1_pInt, 6_pInt do i = 1_pInt, 6_pInt
if (abs(lattice_C66(i,i,myPhase))<tol_math_check) call IO_error(43_pInt,el=i,ip=myPhase) if (abs(lattice_C66(i,i,myPhase))<tol_math_check) call IO_warning(43_pInt,el=i,ip=myPhase)
enddo enddo
lattice_thermalConductivity33(1:3,1:3,myPhase) = lattice_symmetrize33(lattice_structure(myPhase),& lattice_thermalConductivity33(1:3,1:3,myPhase) = lattice_symmetrize33(lattice_structure(myPhase),&
lattice_thermalConductivity33(1:3,1:3,myPhase)) lattice_thermalConductivity33(1:3,1:3,myPhase))