INTEGER*2 IOK(17161),JOK(17161)
      COMMON/BINS/IOK,JOK,NOK