From 76c43ab512cf5c953ed3f3af3f8788382d86c767 Mon Sep 17 00:00:00 2001
From: dwarning <dwarning>
Date: Wed, 3 Oct 2018 20:54:46 +0200
Subject: [PATCH] using the native tan and tanh math functions for real vector
 calculation

---
 src/maths/cmaths/cmath1.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/maths/cmaths/cmath1.c b/src/maths/cmaths/cmath1.c
index 0b9bb1abc..8b5480a6f 100644
--- a/src/maths/cmaths/cmath1.c
+++ b/src/maths/cmaths/cmath1.c
@@ -581,8 +581,8 @@ d_tan(double *dd, int length)
 
     d = alloc_d(length);
     for (i = 0; i < length; i++) {
-        rcheck(cos(degtorad(dd[i])) != 0, "tan");
-        d[i] = sin(degtorad(dd[i])) / cos(degtorad(dd[i]));
+        rcheck(tan(degtorad(dd[i])) != 0, "tan");
+        d[i] = tan(degtorad(dd[i]));
     }
     return d;
 }
@@ -595,8 +595,7 @@ d_tanh(double *dd, int length)
 
     d = alloc_d(length);
     for (i = 0; i < length; i++) {
-        rcheck(cosh(degtorad(dd[i])) != 0, "tanh");
-        d[i] = sinh(degtorad(dd[i])) / cosh(degtorad(dd[i]));
+        d[i] = tanh(degtorad(dd[i]));
     }
     return d;
 }