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

more verbose and works for arbitrary precision

This commit is contained in:
Martin Diehl 2018-08-28 07:47:05 +02:00
parent 6ed68c9134
commit 94695f773e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/math.f90
View File

@ -36,13 +36,13 @@ 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, &
1.414213562373095_pReal, 1.414213562373095_pReal, 1.414213562373095_pReal ] !< weighting for Mandel notation (forward) sqrt(2.0_pReal), sqrt(2.0_pReal), sqrt(2.0_pReal) ] !< weighting for Mandel notation (forward)
real(pReal), dimension(6), parameter , public :: & real(pReal), dimension(6), parameter , public :: &
invnrmMandel = [& invnrmMandel = [&
1.0_pReal, 1.0_pReal, 1.0_pReal,& 1.0_pReal, 1.0_pReal, 1.0_pReal, &
0.7071067811865476_pReal, 0.7071067811865476_pReal, 0.7071067811865476_pReal ] !< weighting for Mandel notation (backward) 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(pInt), dimension (2,6), parameter, private :: & integer(pInt), dimension (2,6), parameter, private :: &
mapVoigt = reshape([& mapVoigt = reshape([&