Changed kind.

482e0519 · Marco Govoni · 310f984b · 482e0519
Commit 482e0519 authored Apr 30, 2017 by Marco Govoni
--- a/Libraries/Json/json_kinds.f90
+++ b/Libraries/Json/json_kinds.f90
@@ -75,7 +75,8 @@
 #elif REAL128
    integer,parameter,public :: RK = real128  !! Default real kind [16 bytes]
 #else
-    integer,parameter,public :: RK = real64   !! Default real kind if not specified [8 bytes]
+!    integer,parameter,public :: RK = real64   !! Default real kind if not specified [8 bytes]
+    integer,parameter,public :: RK = selected_real_kind(14,200) 
 #endif

 #ifdef INT8