src/float/dfloat/elem/cl_DF_globals.cc

   1 // Global variables for cl_DF.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 CL_PROVIDE(cl_DF_globals)
   7
   8 // Specification.
   9 #include "cl_DF.h"
  10
  11
  12 // Implementation.
  13
  14 #if (cl_word_size==64)
  15
  16 const cl_DF cl_DF_0 = allocate_dfloat(0); // 0.0d0
  17
  18 const cl_DF cl_DF_1 = encode_DF(0,1,bit(DF_mant_len)); // 1.0d0
  19
  20 const cl_DF cl_DF_minus1 = encode_DF(-1,1,bit(DF_mant_len)); // -1.0d0
  21
  22 #else
  23
  24 const cl_DF cl_DF_0 = allocate_dfloat(0,0); // 0.0d0
  25
  26 const cl_DF cl_DF_1 = encode_DF(0,1,bit(DF_mant_len-32),0); // 1.0d0
  27
  28 const cl_DF cl_DF_minus1 = encode_DF(-1,1,bit(DF_mant_len-32),0); // -1.0d0
  29
  30 #endif
  31
  32 CL_PROVIDE_END(cl_DF_globals)