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