set type for acos_arg

2011-03-04 14:57:22 +00:00 · 2011-03-04 14:57:22 +00:00 · 654b5ea987
parent 2975c99144
commit 654b5ea987
1 changed files with 1 additions and 0 deletions
--- a/code/math.f90
+++ b/code/math.f90
@ -1600,6 +1600,7 @@ pure function math_transpose3x3(A)

 real(pReal), dimension(4), intent(in) :: Q
 real(pReal), dimension(3) :: math_QuaternionToEuler
+ real(pReal) acos_arg

 math_QuaternionToEuler(2) = acos(1.0_pReal-2.0_pReal*(Q(2)*Q(2)+Q(3)*Q(3)))