# put a single character into the receiving file
#  
subroutine kputch(t,chan)
include ratdef
character t
integer ch,ier,x
x=ishift(t,8)
call wrseq(chan,x,1,ier)
if(ier.ne.1)type "error in kputch ",ier
return
end