1 files changed, 6 insertions, 3 deletions
diff --git a/src/kerr.x b/src/kerr.x
index 57f01b8..b66db76 100644
--- a/src/kerr.x
+++ b/src/kerr.x
@@ -1,4 +1,7 @@
-        mass = sqrt(2+sqrt(4+byJ**2))
+        mass = sqrt(2.00000000000000d0 + sqrt(4.0000000000000d0 + byJ**2
+     &  ))
         a = byJ/mass
-        rBL = sqrt(mass**2-a**2)/2*exp(etagrd(i))*(1+(mass+a)/(sqrt(mass**2-a**2
-     &  )*exp(etagrd(i))))*(1+(mass-a)/(sqrt(mass**2-a**2)*exp(etagrd(i))))
+        rBL = 5.0000000000000d-1*exp(etagrd(i))*(1.00000000000000d0 + (1.d0*(a
+     &   + mass)*exp(-etagrd(i)))/sqrt(-a**2 + mass**2))*sqrt(-a**2 + mass**2)
+     &  *(1.00000000000000d0 + (1.d0*(a + mass)*exp(-etagrd(i)))/sqrt(a**2 + m
+     &  ass**2))