From 932efe1a370e7a8c9f6c7a2dd0beddb36fb7a601 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 7 May 2021 16:40:54 +0530
Subject: Add rtol? predicate.

* src/utils.sc (rtol?): New function.
* include/utils.h (rtol_p): Declare it.
---
 include/utils.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'include')

diff --git a/include/utils.h b/include/utils.h
index 03a8e2e..bc2952c 100644
--- a/include/utils.h
+++ b/include/utils.h
@@ -38,6 +38,7 @@ double gaussian_pdf (double x);
 double gaussian_cdf (double x);
 
 double rerror (double approx, double exact);
+int rtol_p (double approx, double exact, double rtol);
 
 double bisection (gsl_function* f, double a, double b);
 double bisection_rlimit (gsl_function* f, double a, double b);
-- 
cgit v1.2.3