INTEGER LMHLEN, LMHCOL, LMHROW
      PARAMETER (LMHLEN=2, LMHCOL=1, LMHROW=2)
      INTEGER LQBOS,MXBNK
      PARAMETER (LQBOS=2000000,MXBNK=3000)
C
      COMMON /BCS/IW(LQBOS)
      INTEGER IW
      REAL RW(LQBOS)
      EQUIVALENCE (RW(1),IW(1))
C