%N hiswrite %F $MIR/src/subs/headio.c
%D Write a line of text to the history file.
%P pjt
%: header-i/o
%B
FORTRAN call sequence:
        subroutine hiswrite(tno,line)
        integer tno
        character line*(*)

  This writes a text string to the history file associated with an open
  data set.

  Inputs:
    tno         The handle of the open data set.
    line        The string of text to be written to the history file.   
