Commit 482e0519 authored by Marco Govoni's avatar Marco Govoni
Browse files

Changed kind.

parent 310f984b
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment