LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-03 10:05:57 +01:00
Code Issues Releases Wiki Activity

Corrected bug with D in doubles in basis files

Browse Source
This commit is contained in:
Anthony Scemama 2014-12-09 22:17:46 +01:00
parent dce39c7dd1
commit a29070c1d7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ocaml/Gto.ml
View File

@ -52,6 +52,8 @@ let read_one in_channel =
match buffer with match buffer with
| [ j ; expo ; coef ] -> | [ j ; expo ; coef ] ->
begin begin
let coef = String.tr ~target:'D' ~replacement:'e' coef
in
let p = let p =
Primitive.of_sym_expo sym Primitive.of_sym_expo sym
(AO_expo.of_float (Float.of_string expo) ) (AO_expo.of_float (Float.of_string expo) )