!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
      INTEGER IBIT
      REAL ALBITON
*     TOUS LES BITS DE IBIT ET DE ALBITON SONT FIXES A 1
      EQUIVALENCE (IBIT,ALBITON)
      DATA IBIT /-1/