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

intel fortran behaves strange for standard check: 

https://software.intel.com/en-us/forums/topic/506419
worked around that
This commit is contained in:
Martin Diehl 2014-09-11 16:02:05 +00:00
parent d6080d332d
commit 5b6f143fb0
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
code/lattice.f90
View File

@ -202,7 +202,7 @@ module lattice
],pInt),[lattice_fcc_Ntwin,lattice_fcc_Ntwin],order=[2,1]) !< Twin--twin interaction types for fcc ],pInt),[lattice_fcc_Ntwin,lattice_fcc_Ntwin],order=[2,1]) !< Twin--twin interaction types for fcc
real(pReal), dimension(4,LATTICE_fcc_Ntrans), parameter, private :: & real(pReal), dimension(4,LATTICE_fcc_Ntrans), parameter, private :: &
LATTICE_fcc_systemTrans = reshape(real( [& LATTICE_fcc_systemTrans = reshape( [&
0.0, 1.0, 0.0, 10.26, & ! Pitsch OR (Ma & Hartmaier 2014, Table 3) 0.0, 1.0, 0.0, 10.26, & ! Pitsch OR (Ma & Hartmaier 2014, Table 3)
0.0, 1.0, 0.0, -10.26, & 0.0, 1.0, 0.0, -10.26, &
0.0, 0.0, 1.0, 10.26, & 0.0, 0.0, 1.0, 10.26, &
@ -215,7 +215,7 @@ module lattice
1.0, 0.0, 0.0, -10.26, & 1.0, 0.0, 0.0, -10.26, &
0.0, 1.0, 0.0, 10.26, & 0.0, 1.0, 0.0, 10.26, &
0.0, 1.0, 0.0, -10.26 & 0.0, 1.0, 0.0, -10.26 &
],pReal),[ 4_pInt,LATTICE_fcc_Ntrans]) ],[ 4_pInt,LATTICE_fcc_Ntrans])
integer(pInt), dimension(9,LATTICE_fcc_Ntrans), parameter, private :: & integer(pInt), dimension(9,LATTICE_fcc_Ntrans), parameter, private :: &
LATTICE_fcc_bainVariant = reshape(int( [& LATTICE_fcc_bainVariant = reshape(int( [&
@ -235,18 +235,18 @@ module lattice
real(pReal), dimension(4,LATTICE_fcc_Ntrans), parameter, private :: & real(pReal), dimension(4,LATTICE_fcc_Ntrans), parameter, private :: &
LATTICE_fcc_bainRot = reshape(real( [& LATTICE_fcc_bainRot = reshape(real( [&
1.0, 0.0, 0.0, 45.0, & ! Rotate fcc austensite to bain variant 1, 0, 0, 45, & ! Rotate fcc austensite to bain variant
1.0, 0.0, 0.0, 45.0, & 1, 0, 0, 45, &
1.0, 0.0, 0.0, 45.0, & 1, 0, 0, 45, &
1.0, 0.0, 0.0, 45.0, & 1, 0, 0, 45, &
0.0, 1.0, 0.0, 45.0, & 0, 1, 0, 45, &
0.0, 1.0, 0.0, 45.0, & 0, 1, 0, 45, &
0.0, 1.0, 0.0, 45.0, & 0, 1, 0, 45, &
0.0, 1.0, 0.0, 45.0, & 0, 1, 0, 45, &
0.0, 0.0, 1.0, 45.0, & 0, 0, 1, 45, &
0.0, 0.0, 1.0, 45.0, & 0, 0, 1, 45, &
0.0, 0.0, 1.0, 45.0, & 0, 0, 1, 45, &
0.0, 0.0, 1.0, 45.0 & 0, 0, 1, 45 &
],pReal),[ 4_pInt,LATTICE_fcc_Ntrans]) ],pReal),[ 4_pInt,LATTICE_fcc_Ntrans])
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------