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

better understandable

This commit is contained in:
Martin Diehl 2020-02-03 21:39:00 +01:00
parent 54589a9c56
commit 0ce0bb2d85
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/math.f90
View File

@ -35,12 +35,10 @@ module math
real(pReal), dimension(6), parameter, private :: & real(pReal), dimension(6), parameter, private :: &
NRMMANDEL = [& NRMMANDEL = [&
1.0_pReal, 1.0_pReal, 1.0_pReal, & 1.0_pReal, 1.0_pReal, 1.0_pReal, &
sqrt(2.0_pReal), sqrt(2.0_pReal), sqrt(2.0_pReal) ] !< weighting for Mandel notation (forward) sqrt(2.0_pReal), sqrt(2.0_pReal), sqrt(2.0_pReal) ] !< forward weighting for Mandel notation
real(pReal), dimension(6), parameter , private :: & real(pReal), dimension(6), parameter, private :: &
INVNRMMANDEL = [& INVNRMMANDEL = 1.0_pReal/NRMMANDEL !< backward weighting for Mandel notation
1.0_pReal, 1.0_pReal, 1.0_pReal, &
1.0_pReal/sqrt(2.0_pReal), 1.0_pReal/sqrt(2.0_pReal), 1.0_pReal/sqrt(2.0_pReal) ] !< weighting for Mandel notation (backward)
integer, dimension (2,6), parameter, private :: & integer, dimension (2,6), parameter, private :: &
MAPNYE = reshape([& MAPNYE = reshape([&
@ -114,6 +112,7 @@ subroutine math_init
write(6,'(a,4(/,26x,f17.14),/)') ' start of random sequence: ', randTest write(6,'(a,4(/,26x,f17.14),/)') ' start of random sequence: ', randTest
call random_seed(put = randInit) call random_seed(put = randInit)
call unitTest call unitTest
end subroutine math_init end subroutine math_init
@ -1399,7 +1398,7 @@ subroutine unitTest
call IO_error(0,ext_msg='math_invert t33') call IO_error(0,ext_msg='math_invert t33')
t33_2 = transpose(math_rotationalPart33(t33)) t33_2 = transpose(math_rotationalPart33(t33))
if(any(dNeq0(math_rotationalPart33(matmul(t33_2,t33)) - MATH_I3,tol=5.0e-4_pReal))) & if(any(dNeq0(matmul(t33_2,math_rotationalPart33(t33)) - MATH_I3,tol=5.0e-4_pReal))) &
call IO_error(0,ext_msg='math_rotationalPart33') call IO_error(0,ext_msg='math_rotationalPart33')
call random_number(r) call random_number(r)