src/tool/Includes_Generaux/fractj.h

   1 c
   2 c  la liste qui suit concerne les fractions en x/128
   3 c
   4       double precision ses128
   5       parameter ( ses128 = 7.0d0/128.0d0 )
   6 c
   7       double precision qzs128
   8       parameter ( qzs128 = 15.0d0/128.0d0 )
   9 c
  10       double precision v7s128
  11       parameter ( v7s128 = 27.0d0/128.0d0 )