From 5b5a0c094df5278e88abf54f290b997aef5f93ce Mon Sep 17 00:00:00 2001
From: Fredrik Johansson <fredrik.johansson@gmail.com>
Date: Thu, 24 Sep 2015 00:03:26 +0200
Subject: [PATCH] add arb_get_mid_arb / arb_get_rad_arb

---
 arb.h              | 14 ++++++++++++++
 doc/source/arb.rst |  8 ++++++++
 2 files changed, 22 insertions(+)

diff --git a/arb.h b/arb.h
index f61fa837..452e7d9a 100644
--- a/arb.h
+++ b/arb.h
@@ -382,6 +382,20 @@ arb_get_mag(mag_t z, const arb_t x)
     mag_clear(t);
 }
 
+ARB_INLINE void
+arb_get_mid_arb(arb_t z, const arb_t x)
+{
+    arf_set(arb_midref(z), arb_midref(x));
+    mag_zero(arb_radref(z));
+}
+
+ARB_INLINE void
+arb_get_rad_arb(arb_t z, const arb_t x)
+{
+    arf_set_mag(arb_midref(z), arb_radref(x));
+    mag_zero(arb_radref(z));
+}
+
 ARB_INLINE void
 arb_get_abs_ubound_arf(arf_t u, const arb_t x, long prec)
 {
diff --git a/doc/source/arb.rst b/doc/source/arb.rst
index 3845a625..d52a8b52 100644
--- a/doc/source/arb.rst
+++ b/doc/source/arb.rst
@@ -283,6 +283,14 @@ Random number generation
 Radius and interval operations
 -------------------------------------------------------------------------------
 
+.. function:: void arb_get_mid_arb(arb_t m, const arb_t x)
+
+    Sets *m* to the midpoint of *x*.
+
+.. function:: void arb_get_rad_arb(arb_t r, const arb_t x)
+
+    Sets *m* to the radius of *x*.
+
 .. function:: void arb_add_error_arf(arb_t x, const arf_t err)
 
 .. function:: void arb_add_error_mag(arb_t x, const mag_t err)