MICROCERN/kerngen/ublowx1.inc

   1 #if defined(CERNLIB_B64)
   2 C-   -PARAMETER    (IBLAN1 = X'0020202020202020')
   3 C-  - PARAMETER    (MASK1  = X'FF00000000000000')
   4       PARAMETER    (IBLAN1 =   9042521604759584 )
   5       PARAMETER    (MASK1  = -72057594037927936 )
   6 #elif defined(CERNLIB_B32)
   7 C-   -PARAMETER    (IBLAN1 = X'00202020')
   8 C-  - PARAMETER    (MASK1  = X'FF000000')
   9       PARAMETER    (IBLAN1 =    2105376 )
  10       PARAMETER    (MASK1  =  -16777216 )
  11 #endif