integer MAX_IBUF
parameter(MAX_IBUF=1024)
integer ibuf(MAX_IBUF)
if ( 1+length .gt. MAX_IBUF )
count = MAX_IBUF
count=MAX_IBUF