integer ICALBIT
      parameter (ICALBIT = 100000)