From 453f4556e5368df0bef909b8c0f6a55e2b212af6 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 4 Feb 2019 00:12:27 +0100
Subject: [PATCH] bracket was missing

---
 src/rotations.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/rotations.f90 b/src/rotations.f90
index 3f06d9a38..cf6f66af8 100644
--- a/src/rotations.f90
+++ b/src/rotations.f90
@@ -810,7 +810,7 @@ pure function qu2ro(qu) result(ro)
  else
    s = norm2([qu%x,qu%y,qu%z])
    ro = merge ( [ 0.0_pReal, 0.0_pReal, P, 0.0_pReal], &
-                [ qu%x/s,  qu%y/s,  qu%z/s, tan(acos(math_clip(qu%w,-1.0_pReal,1.0_pReal))], &
+                [ qu%x/s,  qu%y/s,  qu%z/s, tan(acos(math_clip(qu%w,-1.0_pReal,1.0_pReal)))], &
                 s < thr)                                                                            !ToDo: not save (PGI compiler)
  end if