program tirf

c do a very simple test of the ireadf function.

	integer*2 dblk(4),buffer(256),blkno
	data dblk/3rdu7,3rire,3radf,3rfor/,blkno/0/
	integer ididit
	common //ididit
	external rcmplt

	ichan=igetc()
c	if (ichan.lt.0) stop 'no channel available'
c	if (ifetch(dblk).ne.0) stop 'bad fetch'
c	if (lookup(ichan,dblk).lt.0) stop 'bad lookup'
	blkno=0

	i=ireadf(256,buffer,blkno,ichan,dblk,rcmplt)
c	i=iread(256,buffer,blkno,ichan)
	if (i.lt.0) go to 10
	call iwait(ichan)

10	call iclose(ichan,j)
	call ifreec(ichan)
	type *,i,ididit
	call exit
	end

	subroutine rcmplt(i,j)
	integer ididit
	common //ididit
	ididit=1
	return
	end