* initialize BCS
*----------------------------------
      integer    NBOSIW
      parameter (NBOSIW = 1000000)
      integer    IW(NBOSIW)
      real       RW(NBOSIW)

      common      /BCS/ IW
      equivalence (RW(1), IW(1))