From a29070c1d7bf6e56e9c11e0b46d30b9b010aa7b8 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 9 Dec 2014 22:17:46 +0100
Subject: [PATCH] Corrected bug with D in doubles in basis files

---
 ocaml/Gto.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ocaml/Gto.ml b/ocaml/Gto.ml
index de9de237..e3c5d62a 100644
--- a/ocaml/Gto.ml
+++ b/ocaml/Gto.ml
@@ -52,6 +52,8 @@ let read_one in_channel =
       match buffer with
       | [ j ; expo ; coef ] ->
         begin
+          let coef = String.tr ~target:'D' ~replacement:'e' coef
+          in
           let p =
             Primitive.of_sym_expo sym 
               (AO_expo.of_float (Float.of_string expo) )