C
C...	COMMON /BSORT/ -  BANDING VARIABLES
C
	INTEGER NEXTI,PRECIS,CANSTX,BYTCNT,FREMAX,FRENXT
	INTEGER BEGIN,NEXTO,MAX,NXDREC,MAXI,NCHUNK,MSKALL
	INTEGER*2 IBUF,IVBUF,IST2
	LOGICAL EOF
C
	COMMON /BSORT/
     *    NEXTI, PRECIS, EOF, CANSTX, BYTCNT,
     *    MAXI,  NCHUNK, FREMAX, FRENXT, IWRD, NBYTS,
     *    ISIZE, MSKALL, BEGIN(74), NEXTO(74), MAX(74),
     *    NXDREC(74), IST2, IBUF(2048), IVBUF(153600)
C
C
C