Update and rename zfp_fct_wrapper.f90 to zfp_fct_wrapper.F90

preprocessing for real kind
ofmla · Apr 22, 2024 · 37bb96e · 37bb96e
1 parent 4b1ed49
commit 37bb96e
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/zfp_fct_wrapper.f90 → zfp_fct_wrapper.F90 b/zfp_fct_wrapper.f90 → zfp_fct_wrapper.F90
@@ -6,7 +6,15 @@ module zfp_fct_wrapper
   implicit none
   private
 
-  integer,parameter,public :: wp = real64
+#ifdef REAL32
+  integer, parameter, public :: zfp_fct_rk = real32   !! real kind used by this module [4 bytes]
+#elif REAL64
+  integer, parameter, public :: zfp_fct_rk = real64   !! real kind used by this module [8 bytes]
+#else
+  integer, parameter, public :: zfp_fct_rk = real64   !! real kind used by this module [8 bytes]
+#endif
+
+  integer, parameter, public :: wp = zfp_fct_rk 
   public :: compress, decompress
 
   contains
@@ -146,4 +154,4 @@ subroutine decompress(buffer, outdata, tolerance, precision, rate, parallel)
     call zFORp_stream_close(zfp)
     call zFORp_bitstream_stream_close(stream)
   end subroutine decompress
-end module zfp_fct_wrapper
+end module zfp_fct_wrapper