%N hisappn %F $MIR/src/subs/calsetio.for
%D Append history from a file to an open dataset
%: history, i/o
%P pjt
%B
      SUBROUTINE hisappn(tno,file,insert)
      INTEGER   tno
      CHARACTER file*(*)
      LOGICAL   insert

   Append the history from a file to an open dataset. Optionally
   history files can be appended in ``INSERT'' mode, i.e. a space
   is inserted before each line is copied over. This is useful
   where the datastream model was not linear, but information
   from another dataset was inserted/used at this point.

   Input:
       tno        handle of the open dataset to append history to
                  hisopen() must have been called.
       file       filename of dataset to append history from
       insert     insert space before each history line copied?
