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

fixed syntax errors in last commit -- hopefully no further ones...

This commit is contained in:
Philip Eisenlohr 2010-05-04 13:03:35 +00:00
parent cecffffe2b
commit ba48e5d3ab
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/math.f90
View File

@ -123,6 +123,7 @@ real(pReal), dimension(4,36), parameter :: math_symOperations = &
implicit none implicit none
real(pReal), dimension(3,3) :: R real(pReal), dimension(3,3) :: R
real(pReal), dimension(3) :: Eulers
real(pReal), dimension(4) :: q real(pReal), dimension(4) :: q
integer (pInt), dimension(1) :: randInit integer (pInt), dimension(1) :: randInit
integer (pInt) seed integer (pInt) seed
@ -144,6 +145,7 @@ real(pReal), dimension(4,36), parameter :: math_symOperations = &
call halton_seed_set(seed) call halton_seed_set(seed)
call halton_ndim_set(3) call halton_ndim_set(3)
ENDSUBROUTINE ENDSUBROUTINE
@ -1542,7 +1544,7 @@ pure function math_QuaternionDisorientation(Q1, Q2, symmetryType)
select case (symmetryType) select case (symmetryType)
case (0) case (0)
if math_QuaternionMisorientation(1) < 0.0_pReal & if (math_QuaternionMisorientation(1) < 0.0_pReal) &
math_QuaternionMisorientation = -math_QuaternionMisorientation ! keep omega within 0 to 180 deg math_QuaternionMisorientation = -math_QuaternionMisorientation ! keep omega within 0 to 180 deg
case (1,2) case (1,2)
@ -1561,7 +1563,7 @@ pure function math_QuaternionDisorientation(Q1, Q2, symmetryType)
enddo; enddo; enddo enddo; enddo; enddo
case default case default
IO_error(550,symmetryType) ! complain call IO_error(550,symmetryType) ! complain
end select end select