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

Cleaning up

This commit is contained in:
Su Leen Wong 2015-06-22 08:10:20 +00:00
parent 2d8af638b0
commit 5114e0b43e
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
code/lattice.f90
View File

@ -1333,7 +1333,6 @@ subroutine lattice_initializeStructure(myPhase,CoverA,CoverA_trans,a_fcc,a_bcc)
use prec, only: & use prec, only: &
tol_math_check tol_math_check
use math, only: & use math, only: &
math_identity2nd, &
math_vectorproduct, & math_vectorproduct, &
math_tensorproduct, & math_tensorproduct, &
math_norm3, & math_norm3, &
@ -1345,7 +1344,8 @@ subroutine lattice_initializeStructure(myPhase,CoverA,CoverA_trans,a_fcc,a_bcc)
math_Mandel3333to66, & math_Mandel3333to66, &
math_Voigt66to3333, & math_Voigt66to3333, &
math_axisAngleToR, & math_axisAngleToR, &
INRAD INRAD, &
MATH_I3
use IO, only: & use IO, only: &
IO_error, & IO_error, &
IO_warning IO_warning
@ -1370,9 +1370,9 @@ subroutine lattice_initializeStructure(myPhase,CoverA,CoverA_trans,a_fcc,a_bcc)
real(pReal), dimension(lattice_maxNtwin) :: & real(pReal), dimension(lattice_maxNtwin) :: &
ts ts
real(pReal), dimension(3,lattice_maxNtrans) :: & real(pReal), dimension(3,lattice_maxNtrans) :: &
xb, yb, zb xtr, ytr, ztr
real(pReal), dimension(3,3,lattice_maxNtrans) :: & real(pReal), dimension(3,3,lattice_maxNtrans) :: &
Rtr, Utr, Btr Rtr, Utr, Btr, Qtr, Str
real(pReal), dimension(3,lattice_maxNcleavage) :: & real(pReal), dimension(3,lattice_maxNcleavage) :: &
cd, cn, ct cd, cn, ct
integer(pInt) :: & integer(pInt) :: &
@ -1444,17 +1444,21 @@ subroutine lattice_initializeStructure(myPhase,CoverA,CoverA_trans,a_fcc,a_bcc)
lattice_fcc_systemTrans(4,i)*INRAD) lattice_fcc_systemTrans(4,i)*INRAD)
Btr(1:3,1:3,i) = math_axisAngleToR(lattice_fcc_bainRot(1:3,i), & ! Rotation of fcc to Bain coordinate system Btr(1:3,1:3,i) = math_axisAngleToR(lattice_fcc_bainRot(1:3,i), & ! Rotation of fcc to Bain coordinate system
lattice_fcc_bainRot(4,i)*INRAD) lattice_fcc_bainRot(4,i)*INRAD)
xtr(1:3,i) = real(LATTICE_fcc_bainVariant(1:3,i),pReal)
xb(1:3,i) = real(LATTICE_fcc_bainVariant(1:3,i),pReal) ytr(1:3,i) = real(LATTICE_fcc_bainVariant(4:6,i),pReal)
yb(1:3,i) = real(LATTICE_fcc_bainVariant(4:6,i),pReal) ztr(1:3,i) = real(LATTICE_fcc_bainVariant(7:9,i),pReal)
zb(1:3,i) = real(LATTICE_fcc_bainVariant(7:9,i),pReal)
Utr(1:3,1:3,i) = 0.0_pReal ! Bain deformation Utr(1:3,1:3,i) = 0.0_pReal ! Bain deformation
if ((a_fcc > 0.0_pReal) .and. (a_bcc > 0.0_pReal)) then if ((a_fcc > 0.0_pReal) .and. (a_bcc > 0.0_pReal)) then
Utr(1:3,1:3,i) = (a_bcc/a_fcc)*math_tensorproduct(xb(1:3,i), xb(1:3,i)) + & Utr(1:3,1:3,i) = (a_bcc/a_fcc)*math_tensorproduct(xtr(1:3,i), xtr(1:3,i)) + &
sqrt(2.0_pReal)*(a_bcc/a_fcc)*math_tensorproduct(yb(1:3,i), yb(1:3,i)) + & sqrt(2.0_pReal)*(a_bcc/a_fcc)*math_tensorproduct(ytr(1:3,i), ytr(1:3,i)) + &
sqrt(2.0_pReal)*(a_bcc/a_fcc)*math_tensorproduct(zb(1:3,i), zb(1:3,i)) sqrt(2.0_pReal)*(a_bcc/a_fcc)*math_tensorproduct(ztr(1:3,i), ztr(1:3,i))
endif endif
Qtr(1:3,1:3,i) = math_mul33x33(Rtr(1:3,1:3,i), Btr(1:3,1:3,i))
Str(1:3,1:3,i) = math_mul33x33(Rtr(1:3,1:3,i), Utr(1:3,1:3,i)) - MATH_I3
enddo enddo
case default
Qtr = 0.0_pReal
Str = 0.0_pReal
end select end select
lattice_NslipSystem(1:lattice_maxNslipFamily,myPhase) = lattice_fcc_NslipSystem lattice_NslipSystem(1:lattice_maxNslipFamily,myPhase) = lattice_fcc_NslipSystem
@ -1641,8 +1645,8 @@ subroutine lattice_initializeStructure(myPhase,CoverA,CoverA_trans,a_fcc,a_bcc)
call IO_error(301_pInt,myPhase,ext_msg = 'dilatational twin Schmid matrix') call IO_error(301_pInt,myPhase,ext_msg = 'dilatational twin Schmid matrix')
enddo enddo
do i = 1_pInt,myNtrans do i = 1_pInt,myNtrans
lattice_Qtrans(1:3,1:3,i,myPhase) = math_mul33x33(Rtr(1:3,1:3,i), Btr(1:3,1:3,i)) lattice_Qtrans(1:3,1:3,i,myPhase) = Qtr(1:3,1:3,i)
lattice_Strans(1:3,1:3,i,myPhase) = math_mul33x33(Rtr(1:3,1:3,i), Utr(1:3,1:3,i)) - math_identity2nd(3) lattice_Strans(1:3,1:3,i,myPhase) = Str(1:3,1:3,i)
lattice_Strans_v(1:6,i,myPhase) = math_Mandel33to6(math_symmetric33(lattice_Strans(1:3,1:3,i,myPhase))) lattice_Strans_v(1:6,i,myPhase) = math_Mandel33to6(math_symmetric33(lattice_Strans(1:3,1:3,i,myPhase)))
enddo enddo
do i = 1_pInt,myNcleavage ! store slip system vectors and Schmid matrix for my structure do i = 1_pInt,myNcleavage ! store slip system vectors and Schmid matrix for my structure