%N hisinput %F $MIR/src/subs/hisinput.for
%D Copy task input parameters to a history file.
%P jm
%: history, user-input
%B
        subroutine HisInput(tno,name)

        implicit none
        integer tno
        character name*(*)

  This copies the task parameters on the command line and writes them
  to the history file.

  NOTE:  The history file must be currently open (via HisOpen) for 
  this routine to work properly.

  Inputs:
    tno        Handle of the history file.
    name       Program name. History comments are prepended with this
               name.
