	INTEGER IRDB(9),IWDB(11),DSW
	INTEGER*2 IBUF(32767)
	COMMON /BUF/IBUF
	IWDB(1)="3400
	IWDB(3)=128
	IWDB(5)=0
	IWDB(7)="402
	CALL ALSCT(IRDB,IWDB,DSW)
	CALL RLSCT(IRDB,IWDB)
	END
